(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    340074,       8123]
NotebookOptionsPosition[    324648,       7594]
NotebookOutlinePosition[    325962,       7637]
CellTagsIndexPosition[    325660,       7627]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"2", "+", "2"}]], "Input",
 CellChangeTimes->{{3.6999540136836925`*^9, 3.6999540145729394`*^9}}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.6999540153430214`*^9}]
}, Open  ]],

Cell[BoxData["List"], "Input",
 CellChangeTimes->{3.699954024571393*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 NamespaceBox["WolframAlphaQueryResults",
  DynamicModuleBox[{Typeset`q$$ = "Plot the sequence1, 3, 4, 2, 5", 
   Typeset`opts$$ = {
   AppearanceElements -> {"Extrusion", "Warnings", "Assumptions", "Pods"}, 
    Asynchronous -> All, 
    Method -> {
     "ExtrusionChosen" -> {
       "Plot", "Plot", 1, 1, "Input", 
        "ListLinePlot[{1, 3, 4, 2, 5}, Mesh -> All, Filling -> Axis, \
AxesOrigin -> {1, 0}]"}, 
      "Formats" -> {"cell", "minput", "moutput", "msound", "dataformats"}}}, 
   Typeset`elements$$ = {"Extrusion", "Warnings", "Assumptions", "Pods"}, 
   Typeset`pod1$$ = XMLElement[
   "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> 
     "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox[
             TagBox[
              GridBox[{{
                 PaneBox[
                  StyleBox[
                   TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"plot\"", {
                    LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{
                    TagBox["1", HoldForm], ",", 
                    TagBox["3", HoldForm], ",", 
                    TagBox["4", HoldForm], ",", 
                    TagBox["2", HoldForm], ",", 
                    TagBox["5", HoldForm]}], "}"}], HoldForm]}}, 
                    GridBoxBackground -> {"Columns" -> {
                    GrayLevel[0.949], None}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    ColumnsEqual -> False, RowsEqual -> False, 
                    GridBoxDividers -> {"Columns" -> {
                    GrayLevel[0.84], 
                    GrayLevel[0.84], 
                    GrayLevel[0.84]}, "Rows" -> {{
                    GrayLevel[0.84]}}, 
                    "RowsIndexed" -> {
                    1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {2, 2, 2}, "Rows" -> {{1}}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, 
                    AllowScriptLevelChange -> False, BaselinePosition -> 1], 
                    Global`TagBoxWrapper["Separator" -> " | "]], 
                   LineSpacing -> {1, 0, 1.5}, LineIndent -> 0], 
                  BaselinePosition -> Center]}}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               ColumnsEqual -> False, RowsEqual -> False, 
               GridBoxSpacings -> {"Columns" -> {{
                    AbsoluteThickness[-1]}}, "Rows" -> {{0}}}, 
               AllowScriptLevelChange -> False], 
              Global`TagBoxWrapper["Separator" -> " | "]], 
             PolynomialForm[#, TraditionalOrder -> False]& ], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {
              FontFamily -> "Times", "Graphics", 
               Global`GraphicsBoxOptionsDefaultAxesStyle -> Directive[
                 GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], 
                 FontOpacity -> 1, "GraphicsAxes"], 
               Global`GraphicsBoxOptionsDefaultTicksStyle -> 
               Directive[
                FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"], 
               Global`GraphicsBoxOptionsDefaultFrameStyle -> Directive[
                 GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], 
                 FontOpacity -> 1, "GraphicsFrame"], 
               Global`GraphicsBoxOptionsDefaultFrameTicksStyle -> 
               Directive[
                FontFamily -> "Times", FontSize -> 10, 
                 "GraphicsFrameTicks"]}}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          CellSize -> {550, Automatic}]}], 
       XMLElement["dataformats", {}, {"plaintext"}]}]}], Typeset`pod2$$ = 
   XMLElement[
   "pod", {"title" -> "Plot", "scanner" -> "Plot", "id" -> "Plot", "position" -> 
     "200", "error" -> "false", "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement[
       "minput", {}, {
        "ListLinePlot[{1, 3, 4, 2, 5}, Mesh -> All, Filling -> Axis, \
AxesOrigin -> {1, 0}]"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            GraphicsBox[{{}, 
              
              GraphicsComplexBox[{{1., 1.}, {2., 3.}, {3., 4.}, {4., 2.}, {5.,
                5.}, {1., 0.}, {5., 0.}}, {{{}, {
                  EdgeForm[], 
                  Directive[{
                    Opacity[0.2], 
                    Hue[0.67, 0.6, 0.6]}], 
                  GraphicsGroupBox[{
                    PolygonBox[{{1, 6, 7, 5, 4, 3, 2}}]}]}, {}, {}}, {{}, {}, {
                  Hue[0.67, 0.6, 0.6], 
                  Directive[
                   RGBColor[0.24720000000000014`, 0.24, 0.6], 
                   AbsoluteThickness[1]], 
                  LineBox[{1, 2, 3, 4, 5}]}}, {{
                  Hue[0.67, 0.6, 0.6], 
                  Directive[
                   RGBColor[0.24720000000000014`, 0.24, 0.6], 
                   AbsoluteThickness[1]], 
                  PointBox[{1, 2, 3, 4, 5}]}, {}, {}}}], {}}, {
             GridLines -> Dynamic[
                Map[{{#, 
                   GrayLevel[0.7]}}& , 
                 MousePosition[{"Graphics", Graphics}, None]]], 
              Method -> {"GridLinesInFront" -> True}, Epilog -> {
                DynamicBox[
                 Typeset`ToBoxes[
                  
                  DynamicModule[{
                   CalculateUtilities`GraphicsUtilities`Private`pt = (
                    NearestFunction[
                    1, {5, 2}, 3, {{0.25, 0.5, 0.75, 1., 1.25}, {0.2, 
                    0.6000000000000001, 0.8, 0.4, 1.}}, {{0.25, 0.2}, {0.5, 
                    0.6000000000000001}, {0.75, 0.8}, {1., 0.4}, {1.25, 
                    1.}}, {{1., 1.}, {2., 3.}, {3., 4.}, {4., 2.}, {5., 5.}}, 
                    Automatic, 
                    Hold[
                    
                    Nearest[{{0.25, 0.2}, {0.5, 0.6000000000000001}, {0.75, 
                    0.8}, {1., 0.4}, {1.25, 1.}} -> {{1., 1.}, {2., 3.}, {3., 
                    4.}, {4., 2.}, {5., 5.}}]]][#/{4., 5.}]& )[
                    MousePosition[{"Graphics", Graphics}, {0, 0}]], 
                    CalculateUtilities`GraphicsUtilities`Private`scaled = 
                    MousePosition[{"GraphicsScaled", Graphics}, None]}, 
                   If[
                   CalculateUtilities`GraphicsUtilities`Private`scaled === 
                    None, {}, {
                    Text[
                    Style[
                    Row[{
                    (
                    Function[{
                    CalculateUtilities`GraphicsUtilities`Private`a, 
                    CalculateUtilities`GraphicsUtilities`Private`acc}, 
                    Quiet[
                    RawBoxes[
                    ToBoxes[
                    NumberForm[CalculateUtilities`GraphicsUtilities`Private`a, 
                    Max[1, 
                    Ceiling[
                    RealExponent[
                    CalculateUtilities`GraphicsUtilities`Private`a] + 
                    CalculateUtilities`GraphicsUtilities`Private`acc]], 
                    ExponentFunction -> (Null& ), 
                    NumberFormat -> (StringReplace[#, StringExpression[
                    Pattern[CalculateUtilities`GraphicsUtilities`Private`s, 
                    BlankSequence[]], ".", EndOfString] -> 
                    CalculateUtilities`GraphicsUtilities`Private`s]& )]]]]][#,
                     2]& )[
                    Part[
                    CalculateUtilities`GraphicsUtilities`Private`pt, 1, 1]], 
                    (
                    Function[{
                    CalculateUtilities`GraphicsUtilities`Private`a, 
                    CalculateUtilities`GraphicsUtilities`Private`acc}, 
                    Quiet[
                    RawBoxes[
                    ToBoxes[
                    NumberForm[CalculateUtilities`GraphicsUtilities`Private`a, 
                    Max[1, 
                    Ceiling[
                    RealExponent[
                    CalculateUtilities`GraphicsUtilities`Private`a] + 
                    CalculateUtilities`GraphicsUtilities`Private`acc]], 
                    ExponentFunction -> (Null& ), 
                    NumberFormat -> (StringReplace[#, StringExpression[
                    Pattern[CalculateUtilities`GraphicsUtilities`Private`s, 
                    BlankSequence[]], ".", EndOfString] -> 
                    CalculateUtilities`GraphicsUtilities`Private`s]& )]]]]][#,
                     2]& )[
                    Part[
                    CalculateUtilities`GraphicsUtilities`Private`pt, 1, 2]]}, 
                    ","], 12], 
                    Part[
                    CalculateUtilities`GraphicsUtilities`Private`pt, 1], {
                    1.5 Sign[
                    Part[CalculateUtilities`GraphicsUtilities`Private`scaled, 
                    1] - 0.5], 0}, Background -> White], 
                    AbsolutePointSize[7], 
                    Point[CalculateUtilities`GraphicsUtilities`Private`pt], 
                    White, 
                    AbsolutePointSize[5], 
                    Point[CalculateUtilities`GraphicsUtilities`Private`pt]}]],
                   TraditionalForm, Graphics]]}, AxesLabel -> {None, None}, 
              AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
              Axes -> True, AxesOrigin -> {1, 0}, 
              BaseStyle -> {CellBaseline -> Baseline}, FrameTicksStyle -> 
              Directive[FontFamily -> "Times", FontSize -> 10], ImageSize -> 
              300., LabelStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
              Method -> {}, PlotRange -> {{1, 5.}, {0, 5.}}, 
              PlotRangeClipping -> True, PlotRangePadding -> {{None, 
                 Scaled[0.02]}, {
                 Scaled[0.02], 
                 Scaled[0.02]}}, Prolog -> {
                Opacity[0], 
                TagBox[
                 RectangleBox[
                  Scaled[{0, 0}], 
                  Scaled[{1, 1}]], Annotation[#, "Plot", "Frame"]& ]}, 
              TicksStyle -> 
              Directive[FontFamily -> "Times", FontSize -> 10]}], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {
              FontFamily -> "Times", "Graphics", 
               Global`GraphicsBoxOptionsDefaultAxesStyle -> Directive[
                 GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], 
                 FontOpacity -> 1, "GraphicsAxes"], 
               Global`GraphicsBoxOptionsDefaultTicksStyle -> 
               Directive[
                FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"], 
               Global`GraphicsBoxOptionsDefaultFrameStyle -> Directive[
                 GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], 
                 FontOpacity -> 1, "GraphicsFrame"], 
               Global`GraphicsBoxOptionsDefaultFrameTicksStyle -> 
               Directive[
                FontFamily -> "Times", FontSize -> 10, 
                 "GraphicsFrameTicks"]}}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          CellSize -> {550, Automatic}]}], 
       XMLElement[
       "dataformats", {}, {"minput,computabledata,formatteddata"}]}]}], 
   Typeset`pod3$$, Typeset`pod4$$, Typeset`pod5$$, Typeset`pod6$$, 
   Typeset`pod7$$, Typeset`pod8$$, Typeset`pod9$$, Typeset`pod10$$, 
   Typeset`pod11$$, Typeset`pod12$$, Typeset`pod13$$, Typeset`pod14$$, 
   Typeset`pod15$$, Typeset`pod16$$, Typeset`pod17$$, Typeset`pod18$$, 
   Typeset`pod19$$, Typeset`pod20$$, Typeset`pod21$$, Typeset`pod22$$, 
   Typeset`pod23$$, Typeset`pod24$$, Typeset`pod25$$, Typeset`pod26$$, 
   Typeset`pod27$$, Typeset`pod28$$, Typeset`pod29$$, Typeset`pod30$$, 
   Typeset`pod31$$, Typeset`pod32$$, Typeset`aux1$$ = {
   True, False, {False}, True}, Typeset`aux2$$ = {True, False, {False}, True},
    Typeset`aux3$$ = {True, False, {False}, True}, Typeset`aux4$$ = {
   True, False, {False}, True}, Typeset`aux5$$ = {True, False, {False}, True},
    Typeset`aux6$$ = {True, False, {False}, True}, Typeset`aux7$$ = {
   True, False, {False}, True}, Typeset`aux8$$ = {True, False, {False}, True},
    Typeset`aux9$$ = {True, False, {False}, True}, Typeset`aux10$$ = {
   True, False, {False}, True}, Typeset`aux11$$ = {
   True, False, {False}, True}, Typeset`aux12$$ = {
   True, False, {False}, True}, Typeset`aux13$$ = {
   True, False, {False}, True}, Typeset`aux14$$ = {
   True, False, {False}, True}, Typeset`aux15$$ = {
   True, False, {False}, True}, Typeset`aux16$$ = {
   True, False, {False}, True}, Typeset`aux17$$ = {
   True, False, {False}, True}, Typeset`aux18$$ = {
   True, False, {False}, True}, Typeset`aux19$$ = {
   True, False, {False}, True}, Typeset`aux20$$ = {
   True, False, {False}, True}, Typeset`aux21$$ = {
   True, False, {False}, True}, Typeset`aux22$$ = {
   True, False, {False}, True}, Typeset`aux23$$ = {
   True, False, {False}, True}, Typeset`aux24$$ = {
   True, False, {False}, True}, Typeset`aux25$$ = {
   True, False, {False}, True}, Typeset`aux26$$ = {
   True, False, {False}, True}, Typeset`aux27$$ = {
   True, False, {False}, True}, Typeset`aux28$$ = {
   True, False, {False}, True}, Typeset`aux29$$ = {
   True, False, {False}, True}, Typeset`aux30$$ = {
   True, False, {False}, True}, Typeset`aux31$$ = {
   True, False, {False}, True}, Typeset`aux32$$ = {
   True, False, {False}, True}, Typeset`asyncpods$$ = {}, 
   Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, 
   Typeset`queryinfo$$ = {{
    "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> 
     "Plot", "timedout" -> "", "timedoutpods" -> "", "timing" -> "1.073", 
     "parsetiming" -> "0.682", "parsetimedout" -> "false", "recalculate" -> 
     "http://www5a.wolframalpha.com/api/v2/recalc.jsp?id=\
MSPa10401g5dei41290d1agb00006800h4ddch8550ih&redisFailed=true&s=55", "id" -> 
     "MSPa10411g5dei41290d1agb00006aihg9a7i46ci8f0", "host" -> 
     "http://www5a.wolframalpha.com", "server" -> "55", "related" -> 
     "http://www5a.wolframalpha.com/api/v2/relatedQueries.jsp?id=\
MSPa10421g5dei41290d1agb0000268d6i0hih18e9da&redisFailed=true&s=55", 
     "version" -> "2.6"}, {
    "success" -> "true", "error" -> "false", "numpods" -> "0", "datatypes" -> 
     "Plot", "timedout" -> "", "timedoutpods" -> "", "timing" -> "0.097", 
     "parsetiming" -> "0.", "parsetimedout" -> "false", "recalculate" -> "", 
     "id" -> "", "host" -> "http://www5a.wolframalpha.com", "server" -> "55", 
     "related" -> "", "version" -> "2.6"}}, Typeset`sessioninfo$$ = {
   "TimeZone" -> 8., 
    "Date" -> {2017, 3, 31, 21, 1, 41.4025708`9.369602185833552}, "Line" -> 2,
     "SessionID" -> 29757394428852943244}, Typeset`showpods$$ = {1, 2}, 
   Typeset`failedpods$$ = {3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 
   17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32}, 
   Typeset`chosen$$ = {
   "Plot", "Plot", 1, 1, "Input", 
    "ListLinePlot[{1, 3, 4, 2, 5}, Mesh -> All, Filling -> Axis, AxesOrigin \
-> {1, 0}]"}, Typeset`open$$ = False, Typeset`newq$$ = 
   "Plot the sequence 1, 3, 4, 2, 5"}, 
   DynamicBox[ToBoxes[
     AlphaIntegration`FormatAlphaResults[
      Dynamic[{
       2, {Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
         Typeset`pod5$$, Typeset`pod6$$, Typeset`pod7$$, Typeset`pod8$$, 
         Typeset`pod9$$, Typeset`pod10$$, Typeset`pod11$$, Typeset`pod12$$, 
         Typeset`pod13$$, Typeset`pod14$$, Typeset`pod15$$, Typeset`pod16$$, 
         Typeset`pod17$$, Typeset`pod18$$, Typeset`pod19$$, Typeset`pod20$$, 
         Typeset`pod21$$, Typeset`pod22$$, Typeset`pod23$$, Typeset`pod24$$, 
         Typeset`pod25$$, Typeset`pod26$$, Typeset`pod27$$, Typeset`pod28$$, 
         Typeset`pod29$$, Typeset`pod30$$, Typeset`pod31$$, 
         Typeset`pod32$$}, {
        Typeset`aux1$$, Typeset`aux2$$, Typeset`aux3$$, Typeset`aux4$$, 
         Typeset`aux5$$, Typeset`aux6$$, Typeset`aux7$$, Typeset`aux8$$, 
         Typeset`aux9$$, Typeset`aux10$$, Typeset`aux11$$, Typeset`aux12$$, 
         Typeset`aux13$$, Typeset`aux14$$, Typeset`aux15$$, Typeset`aux16$$, 
         Typeset`aux17$$, Typeset`aux18$$, Typeset`aux19$$, Typeset`aux20$$, 
         Typeset`aux21$$, Typeset`aux22$$, Typeset`aux23$$, Typeset`aux24$$, 
         Typeset`aux25$$, Typeset`aux26$$, Typeset`aux27$$, Typeset`aux28$$, 
         Typeset`aux29$$, Typeset`aux30$$, Typeset`aux31$$, Typeset`aux32$$}, 
        Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, 
        Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, 
        Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, 
        Typeset`newq$$}]], StandardForm],
    ImageSizeCache->{458., {70., 18.}},
    TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}],
   DynamicModuleValues:>{},
   Initialization:>If[
     Not[Typeset`initdone$$], Null; AlphaIntegration`DoAsyncInitialization[
       Hold[{
        2, {Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
          Typeset`pod5$$, Typeset`pod6$$, Typeset`pod7$$, Typeset`pod8$$, 
          Typeset`pod9$$, Typeset`pod10$$, Typeset`pod11$$, Typeset`pod12$$, 
          Typeset`pod13$$, Typeset`pod14$$, Typeset`pod15$$, Typeset`pod16$$, 
          Typeset`pod17$$, Typeset`pod18$$, Typeset`pod19$$, Typeset`pod20$$, 
          Typeset`pod21$$, Typeset`pod22$$, Typeset`pod23$$, Typeset`pod24$$, 
          Typeset`pod25$$, Typeset`pod26$$, Typeset`pod27$$, Typeset`pod28$$, 
          Typeset`pod29$$, Typeset`pod30$$, Typeset`pod31$$, 
          Typeset`pod32$$}, {
         Typeset`aux1$$, Typeset`aux2$$, Typeset`aux3$$, Typeset`aux4$$, 
          Typeset`aux5$$, Typeset`aux6$$, Typeset`aux7$$, Typeset`aux8$$, 
          Typeset`aux9$$, Typeset`aux10$$, Typeset`aux11$$, Typeset`aux12$$, 
          Typeset`aux13$$, Typeset`aux14$$, Typeset`aux15$$, Typeset`aux16$$, 
          Typeset`aux17$$, Typeset`aux18$$, Typeset`aux19$$, Typeset`aux20$$, 
          Typeset`aux21$$, Typeset`aux22$$, Typeset`aux23$$, Typeset`aux24$$, 
          Typeset`aux25$$, Typeset`aux26$$, Typeset`aux27$$, Typeset`aux28$$, 
          Typeset`aux29$$, Typeset`aux30$$, Typeset`aux31$$, Typeset`aux32$$},
          Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, 
         Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, 
         Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, 
         Typeset`newq$$, 
         "http://www5a.wolframalpha.com/api/v2/recalc.jsp?id=\
MSPa10401g5dei41290d1agb00006800h4ddch8550ih&redisFailed=true&s=55", 
         Typeset`asyncpods$$}]]; Typeset`asyncpods$$ = {}; 
     Typeset`initdone$$ = True],
   SynchronousInitialization->False],
  BaseStyle->{Deployed -> True},
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True]], "WolframAlphaShortInput"],

Cell[BoxData[
 GraphicsBox[{{}, 
   GraphicsComplexBox[{{1., 1.}, {2., 3.}, {3., 4.}, {4., 2.}, {5., 5.}, {1., 
    0.}, {5., 0.}}, {{{}, 
      {Hue[0.67, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[
        PolygonBox[{{1, 6, 7, 5, 4, 3, 2}}]]}, {}, {}}, {{}, {}, 
      {RGBColor[0.24720000000000014`, 0.24, 0.6], LineBox[{1, 2, 3, 4, 5}]}}, {
      {RGBColor[0.24720000000000014`, 0.24, 0.6], 
       PointBox[{1, 2, 3, 4, 5}]}, {}, {}}}], {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{1, 0},
  Method->{},
  PlotRange->{{1, 5.}, {0, 5.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.08, 0.08}, {0.1, 0.1}}]], "Output",
 CellChangeTimes->{3.69995410536213*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Column", "[", 
    RowBox[{"Range", "[", "n", "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "8"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.699954206508258*^9, 3.6999542318873634`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[GridBox[{
      {"1"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"], ",", 
   TagBox[GridBox[{
      {"1"},
      {"2"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"], ",", 
   TagBox[GridBox[{
      {"1"},
      {"2"},
      {"3"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"], ",", 
   TagBox[GridBox[{
      {"1"},
      {"2"},
      {"3"},
      {"4"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"], ",", 
   TagBox[GridBox[{
      {"1"},
      {"2"},
      {"3"},
      {"4"},
      {"5"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"], ",", 
   TagBox[GridBox[{
      {"1"},
      {"2"},
      {"3"},
      {"4"},
      {"5"},
      {"6"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"], ",", 
   TagBox[GridBox[{
      {"1"},
      {"2"},
      {"3"},
      {"4"},
      {"5"},
      {"6"},
      {"7"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"], ",", 
   TagBox[GridBox[{
      {"1"},
      {"2"},
      {"3"},
      {"4"},
      {"5"},
      {"6"},
      {"7"},
      {"8"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"]}], "}"}]], "Output",
 CellChangeTimes->{3.6999542327770166`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", "+", "2"}]], "Input",
 CellChangeTimes->{{3.6999542704681864`*^9, 3.6999542709538383`*^9}}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.699954271385707*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1234", "+", "5678"}]], "Input",
 CellChangeTimes->{{3.699954273425517*^9, 3.69995427770682*^9}}],

Cell[BoxData["6912"], "Output",
 CellChangeTimes->{3.699954278141884*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1234", "*", "5678"}]], "Input",
 CellChangeTimes->{{3.6999542823233757`*^9, 3.6999542848074417`*^9}}],

Cell[BoxData["7006652"], "Output",
 CellChangeTimes->{3.6999542852339993`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plus", "[", 
  RowBox[{"3", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.699954372282935*^9, 3.6999543722984962`*^9}}],

Cell[BoxData["7"], "Output",
 CellChangeTimes->{3.6999543733664446`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Times", "[", 
  RowBox[{"2", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999543867435627`*^9, 3.6999543867435627`*^9}}],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{3.699954387643983*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Max", "[", 
  RowBox[{"2", ",", "7", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999544002321944`*^9, 3.6999544002331963`*^9}}],

Cell[BoxData["7"], "Output",
 CellChangeTimes->{3.6999544011397552`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomInteger", "[", "100", "]"}]], "Input",
 CellChangeTimes->{{3.6999544152433276`*^9, 3.6999544152443275`*^9}}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.6999544162549176`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomInteger", "[", "100", "]"}]], "Input",
 CellChangeTimes->{{3.6999544310127563`*^9, 3.6999544310127563`*^9}}],

Cell[BoxData["67"], "Output",
 CellChangeTimes->{3.6999544320156746`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "a", ",", "b", ",", "c"}], 
  "}"}]], "Input",
 CellChangeTimes->{{3.6999544565372095`*^9, 3.6999544565372095`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "a", ",", "b", ",", "c"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.6999544575451756`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "1", ",", "2", ",", "2", ",", "3", ",", "4", ",", "4"}], 
   "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.699954465257281*^9, 3.6999544652582808`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], 
    PointBox[{{1., 1.}, {2., 1.}, {3., 2.}, {4., 2.}, {5., 3.}, {6., 4.}, {7.,
      4.}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 1.},
  Method->{},
  PlotRange->{{0, 7.}, {1., 4.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.14, 0.14}, {0.06, 0.06}}]], "Output",
 CellChangeTimes->{3.699954466465559*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"{", 
   RowBox[{"10", ",", "9", ",", "8", ",", "7", ",", "3", ",", "2", ",", "1"}],
    "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999544833537893`*^9, 3.69995448335479*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], 
    PointBox[{{1., 10.}, {2., 9.}, {3., 8.}, {4., 7.}, {5., 3.}, {6., 2.}, {
     7., 1.}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 7.}, {0, 10.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.14, 0.14}, {0.2, 0.2}}]], "Output",
 CellChangeTimes->{3.699954485155053*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Range", "[", "10", "]"}]], "Input",
 CellChangeTimes->{{3.699954500502903*^9, 3.699954500502903*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 
   ",", "9", ",", "10"}], "}"}]], "Output",
 CellChangeTimes->{3.699954501335013*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Range", "[", "20", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999545109832306`*^9, 3.6999545109832306`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQEf7FFpBgdUmgONFkCjRdBoCTRaBo1WQKOV0GgV
NFoNjdZAo7XQaB00Wg+NNkCjDdFoIzTaGI02gdMA/GISxA==
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 20.}, {0, 20.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.4, 0.4}, {0.4, 0.4}}]], "Output",
 CellChangeTimes->{3.699954511815624*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reverse", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.699954524422938*^9, 3.699954524422938*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.699954525261687*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reverse", "[", 
  RowBox[{"Range", "[", "10", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.699954534706875*^9, 3.699954534706875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "10", ",", "9", ",", "8", ",", "7", ",", "6", ",", "5", ",", "4", ",", "3", 
   ",", "2", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.699954535624538*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Reverse", "[", 
   RowBox[{"Range", "[", "10", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999545499467373`*^9, 3.6999545499477386`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], 
    PointBox[{{1., 10.}, {2., 9.}, {3., 8.}, {4., 7.}, {5., 6.}, {6., 5.}, {
     7., 4.}, {8., 3.}, {9., 2.}, {10., 1.}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 10.}, {0, 10.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.2, 0.2}, {0.2, 0.2}}]], "Output",
 CellChangeTimes->{3.6999545508911557`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Join", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "7"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999545642484055`*^9, 3.699954564249407*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.699954565191635*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Join", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6999545741136847`*^9, 3.6999545741292524`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5"}],
   "}"}]], "Output",
 CellChangeTimes->{3.699954575427494*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Join", "[", 
  RowBox[{
   RowBox[{"Range", "[", "3", "]"}], ",", 
   RowBox[{"Range", "[", "5", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.699954586028249*^9, 3.699954586028249*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5"}],
   "}"}]], "Output",
 CellChangeTimes->{3.6999545868985977`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Join", "[", 
  RowBox[{
   RowBox[{"Range", "[", "20", "]"}], ",", 
   RowBox[{"Range", "[", "20", "]"}], ",", 
   RowBox[{"Range", "[", "30", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.699954634503443*^9, 3.69995463451904*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "1", ",", "2",
    ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",",
    "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", 
   ",", "17", ",", "18", ",", "19", ",", "20", ",", "1", ",", "2", ",", "3", 
   ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",",
    "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", 
   ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", 
   "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.699954635520666*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"Range", "[", "20", "]"}], ",", 
    RowBox[{"Range", "[", "20", "]"}], ",", 
    RowBox[{"Range", "[", "30", "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999547051096153`*^9, 3.6999547051096153`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJxd0jlKRFEURdGPkaGBgYFB+REREbHvrXpaWvbtEARjp3CH5pAcgop7B3Ue
PBYn3dyl98+3j5mu6ya//8//9z2atmvTzoZz4Xy4EC6Gg7APl8OVcDVcC9fD
jXAz3Aq3w51wN9xD++2z7XeA9jtE+x2h/Y7Rfidov1O03xn2OET7jdB+DelX
bvudI/3Kbb8LpF+57TdG+pXbfpdIv3Lb74pNv3Lbb4L0K7f9rpF+5bbfDdKv
3D3eIv3Kbb87tJ/bfvdoP7f9HtB+bvs9ov3c9ntC+7m9w2fkDsvtHb4gd9jc
3GG5ucMvt3f4itxhc3OH5R62H+5wTRg=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 70.}, {0, 30.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{1.4000000000000001`, 1.4000000000000001`}, {0.6, 
   0.6}}]], "Output",
 CellChangeTimes->{3.6999547060637007`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"Range", "[", "20", "]"}], ",", 
    RowBox[{"Reverse", "[", 
     RowBox[{"Range", "[", "20", "]"}], "]"}], ",", 
    RowBox[{"Range", "[", "30", "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999547287037983`*^9, 3.6999547287057886`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJxd0klKA1EUheHCkUMHDhw4iIWIiITY90nZxb5dguDYLdyluSSXoJL/H9QJ
FB8HitR7956Vj6/3z7mmaaZ/z7+z38+kb9P1nQ8XwsVwKVwOB2EbroZr4Xq4
EW6Gw3AUboXb4U64G+5F3o/3D+L/DuN7R3Ge4zjvCXqfU/S+Z+g8xui8Jug8
O2xnltl9nCP7KrP7vED2XWb7cIn0pcz26QrpW0Vurvvvl9n+TfvfK7P9u+mf
t8z27xa5b5lbvEPmVWbneY/Mu8zu4wHZV5nd5yOy7zLbhyekL2W2T89I38ps
D1+QHpbZHr4iPezM9LDM9PDbbA/fkB52ZnpY5nH3C7PATRg=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 70.}, {0, 30.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{1.4000000000000001`, 1.4000000000000001`}, {0.6, 
   0.6}}]], "Output",
 CellChangeTimes->{3.6999547297412996`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{"{", 
   RowBox[{
   "1", ",", "3", ",", "5", ",", "4", ",", "1", ",", "2", ",", "1", ",", 
    "4"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999547515727725`*^9, 3.6999547515727725`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.24720000000000014`, 0.24, 0.6], 
     LineBox[{{1., 1.}, {2., 3.}, {3., 5.}, {4., 4.}, {5., 1.}, {6., 2.}, {7.,
       1.}, {8., 4.}}]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 1.},
  Method->{},
  PlotRange->{{0, 8.}, {1., 5.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.16, 0.16}, {0.08, 0.08}}]], "Output",
 CellChangeTimes->{3.699954752710121*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"{", 
   RowBox[{
   "1", ",", "3", ",", "5", ",", "4", ",", "1", ",", "2", ",", "1", ",", 
    "4"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.699954799388726*^9, 3.699954799388726*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], 
    PointBox[{{1., 1.}, {2., 3.}, {3., 5.}, {4., 4.}, {5., 1.}, {6., 2.}, {7.,
      1.}, {8., 4.}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 1.},
  Method->{},
  PlotRange->{{0, 8.}, {1., 5.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.16, 0.16}, {0.08, 0.08}}]], "Output",
 CellChangeTimes->{3.699954800378217*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BarChart", "[", 
  RowBox[{"{", 
   RowBox[{
   "1", ",", "3", ",", "5", ",", "4", ",", "1", ",", "2", ",", "1", ",", 
    "4"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.699954813697503*^9, 3.699954813697503*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Opacity[0], PointBox[{{0.44545454545454544`, 0.}}]}, {{}, 
    {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
     EdgeForm[{Opacity[0.7], Thickness[Small]}], 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[{Opacity[0.7], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.5454545454545454, 0.}, {1.4545454545454546`, 1.}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{12.04308068289745, 51.5710868910561}, {
           60.75223089727709, 103.75278862159637`}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[1, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[{Opacity[0.7], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{1.5454545454545454`, 0.}, {2.4545454545454546`, 3.}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{54.97388751187195, 
           94.5018937200306}, {-24.248884551361485`, 103.75278862159637`}}],
         StatusArea[#, 3]& ,
         TagBoxNote->"3"],
        StyleBox["3", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[3, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[{Opacity[0.7], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{2.5454545454545454`, 0.}, {3.4545454545454546`, 5.}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{97.90469434084646, 
           137.43270054900512`}, {-109.25000000000001`, 103.75278862159637`}}],
         StatusArea[#, 5]& ,
         TagBoxNote->"5"],
        StyleBox["5", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[5, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[{Opacity[0.7], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{3.5454545454545454`, 0.}, {4.454545454545454, 4.}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{140.835501169821, 
           180.3635073779796}, {-66.74944227568075, 103.75278862159637`}}],
         StatusArea[#, 4]& ,
         TagBoxNote->"4"],
        StyleBox["4", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[4, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[{Opacity[0.7], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{4.545454545454545, 0.}, {5.454545454545454, 1.}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{183.76630799879547`, 223.2943142069541}, {
           60.75223089727709, 103.75278862159637`}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[1, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[{Opacity[0.7], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{5.545454545454545, 0.}, {6.454545454545454, 2.}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{226.69711482776995`, 266.2251210359286}, {
           18.25167317295781, 103.75278862159637`}}],
         StatusArea[#, 2]& ,
         TagBoxNote->"2"],
        StyleBox["2", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[2, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[{Opacity[0.7], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{6.545454545454545, 0.}, {7.454545454545454, 1.}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{269.6279216567445, 309.1559278649031}, {
           60.75223089727709, 103.75278862159637`}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[1, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[{Opacity[0.7], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{7.545454545454545, 0.}, {8.454545454545453, 4.}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{312.558728485719, 
           352.0867346938776}, {-66.74944227568075, 103.75278862159637`}}],
         StatusArea[#, 4]& ,
         TagBoxNote->"4"],
        StyleBox["4", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[4, {
          GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {}, {}, GraphicsGroupBox[
    {GrayLevel[0], 
     StyleBox[
      StyleBox[
       StyleBox[{
         {Thickness[Tiny], 
          LineBox[{{0.44545454545454544`, 0.}, {8.454545454545453, 
           0.}}], {}}, {
          {Thickness[Tiny], 
           LineBox[{{0.5454545454545454, 0.}, 
             Offset[{-1.102182119232618*^-15, -6.}, {0.5454545454545454, 
              0.}]}], LineBox[{{8.454545454545453, 0.}, 
             Offset[{-1.102182119232618*^-15, -6.}, {8.454545454545453, 
              0.}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}}},
        Antialiasing->False], "GraphicsAxes",
       StripOnInput->False],
      Antialiasing->False]}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.44545454545454544`, 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  PlotRangePadding->Scaled[0.02],
  Ticks->{None, Automatic}]], "Output",
 CellChangeTimes->{3.69995481528272*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PieChart", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "3", ",", "5", ",", "4", ",", "9"}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.699954830326481*^9, 3.6999548408793917`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}}, {}, 
   DynamicModuleBox[{DynamicChart`click$9199$9239 = False, 
    DynamicChart`click$9205$9239 = False, DynamicChart`click$9209$9239 = 
    False, DynamicChart`click$9213$9239 = False, 
    DynamicChart`click$9217$9239 = False}, {
     {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {
       {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
        {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
         EdgeForm[GrayLevel[0.5]], GeometricTransformationBox[
          TagBox[
           TagBox[
            TooltipBox[
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[2.5], 
                   Opacity[0.66]}], {}, {}], 
                DiskBox[{0, 0}, 1., {2.8559933214452666`, 3.141592653589793}]},
               
               ImageSizeCache->{{34.58578643762689, 
                181.4142135623731}, {-43.98370174753899, \
-0.5857864376268935}}],
              StatusArea[#, 1]& ,
              TagBoxNote->"1"],
             StyleBox["1", {
               GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
            Annotation[#, 
             Style[1, {
               GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
           
           EventHandlerTag[{
            "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9199$9239, 
               FEPrivate`Not[DynamicChart`click$9199$9239]], PassEventsDown -> 
             True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
          Dynamic[If[
           DynamicChart`click$9199$9239, {{{1., 0}, {
              0, 1.}}, {-0.19796428837618654`, 0.028462967654657036`}}, {{1, 
            0}, {0, 1}}, {{1, 0}, {0, 1}}], 
           TrackedSymbols :> {DynamicChart`click$9199$9239}]]}, 
        {RGBColor[0.7333333333333333, 1., 0.8337224383916991], EdgeForm[
         GrayLevel[0.5]], GeometricTransformationBox[
          TagBox[
           TagBox[
            TooltipBox[
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[2.5], 
                   Opacity[0.66]}], {}, {}], 
                
                DiskBox[{0, 0}, 1., {1.9991953250116865`, 
                 2.8559933214452666`}]},
               
               ImageSizeCache->{{40.41879823713927, 
                181.4142135623731}, {-134.40122089342373`, \
-0.5857864376268935}}],
              StatusArea[#, 3]& ,
              TagBoxNote->"3"],
             StyleBox["3", {
               GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
            Annotation[#, 
             Style[3, {
               GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
           
           EventHandlerTag[{
            "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9205$9239, 
               FEPrivate`Not[DynamicChart`click$9205$9239]], PassEventsDown -> 
             True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
          Dynamic[If[
           DynamicChart`click$9205$9239, {{{1., 0}, {
              0, 1.}}, {-0.15114991487085164`, 0.13097214678905705`}}, {{1, 
            0}, {0, 1}}, {{1, 0}, {0, 1}}], 
           TrackedSymbols :> {DynamicChart`click$9205$9239}]]}, 
        {RGBColor[1, 0.986999, 0.742123], EdgeForm[GrayLevel[0.5]], 
         GeometricTransformationBox[
          TagBox[
           TagBox[
            TooltipBox[
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[2.5], 
                   Opacity[0.66]}], {}, {}], 
                DiskBox[{0, 0}, 1., {0.571198664289053, 1.9991953250116865`}]},
               ImageSizeCache->{{118.76602456535527`, 
                302.5547222900632}, {-147.41421356237308`, \
-0.5857864376268935}}],
              StatusArea[#, 5]& ,
              TagBoxNote->"5"],
             StyleBox["5", {
               GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
            Annotation[#, 
             Style[5, {
               GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
           
           EventHandlerTag[{
            "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9209$9239, 
               FEPrivate`Not[DynamicChart`click$9209$9239]], PassEventsDown -> 
             True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
          Dynamic[If[
           DynamicChart`click$9209$9239, {{{1., 0}, {0, 1.}}, {
             0.056346511368286, 0.19189859472289947`}}, {{1, 0}, {0, 1}}, {{1,
             0}, {0, 1}}], 
           TrackedSymbols :> {DynamicChart`click$9209$9239}]]}, 
        {RGBColor[1, 0.860624, 0.662562], EdgeForm[GrayLevel[0.5]], 
         GeometricTransformationBox[
          TagBox[
           TagBox[
            TooltipBox[
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[2.5], 
                   Opacity[0.66]}], {}, {}], 
                DiskBox[{0, 0}, 1., {-0.5711986642890534, 0.571198664289053}]},
               
               ImageSizeCache->{{178.5857864376269, 
                325.4142135623731}, {-81.26649127597912, 77.26649127597918}}],
              StatusArea[#, 4]& ,
              TagBoxNote->"4"],
             StyleBox["4", {
               GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
            Annotation[#, 
             Style[4, {
               GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
           
           EventHandlerTag[{
            "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9213$9239, 
               FEPrivate`Not[DynamicChart`click$9213$9239]], PassEventsDown -> 
             True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
          Dynamic[If[
           DynamicChart`click$9213$9239, {{{1., 0}, {0, 1.}}, {
             0.2, -4.4408920985006264`*^-17}}, {{1, 0}, {0, 1}}, {{1, 0}, {0, 
            1}}], TrackedSymbols :> {DynamicChart`click$9213$9239}]]}, 
        {RGBColor[1, 0.696086, 0.721935], EdgeForm[GrayLevel[0.5]], 
         GeometricTransformationBox[
          TagBox[
           TagBox[
            TooltipBox[
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[2.5], 
                   Opacity[0.66]}], {}, {}], 
                
                DiskBox[{0, 0}, 
                 1., {-3.141592653589793, -0.5711986642890534}]},
               
               ImageSizeCache->{{34.58578643762689, 
                302.5547222900632}, {-3.414213562373078, 143.4142135623731}}],
              StatusArea[#, 9]& ,
              TagBoxNote->"9"],
             StyleBox["9", {
               GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
            Annotation[#, 
             Style[9, {
               GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
           
           EventHandlerTag[{
            "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9217$9239, 
               FEPrivate`Not[DynamicChart`click$9217$9239]], PassEventsDown -> 
             True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
          Dynamic[If[
           DynamicChart`click$9217$9239, {{{1., 0}, {
              0, 1.}}, {-0.05634651136828594, -0.1918985947228995}}, {{1, 
            0}, {0, 1}}, {{1, 0}, {0, 1}}], 
           TrackedSymbols :> {DynamicChart`click$9217$9239}]]}}, {}}, {}}, {{{
        GeometricTransformationBox[
         TagBox[
          TagBox[
           TooltipBox[
            TagBox[{{}, {}},
             StatusArea[#, 1]& ,
             TagBoxNote->"1"],
            StyleBox["1", {
              GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
           Annotation[#, 
            Style[1, {
              GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
          
          EventHandlerTag[{
           "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9199$9239, 
              FEPrivate`Not[DynamicChart`click$9199$9239]], PassEventsDown -> 
            True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
         Dynamic[If[
          DynamicChart`click$9199$9239, {{{1., 0}, {
             0, 1.}}, {-0.19796428837618654`, 0.028462967654657036`}}, {{1, 
           0}, {0, 1}}, {{1, 0}, {0, 1}}], 
          TrackedSymbols :> {DynamicChart`click$9199$9239}]], 
        GeometricTransformationBox[
         TagBox[
          TagBox[
           TooltipBox[
            TagBox[{{}, {}},
             StatusArea[#, 3]& ,
             TagBoxNote->"3"],
            StyleBox["3", {
              GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
           Annotation[#, 
            Style[3, {
              GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
          
          EventHandlerTag[{
           "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9205$9239, 
              FEPrivate`Not[DynamicChart`click$9205$9239]], PassEventsDown -> 
            True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
         Dynamic[If[
          DynamicChart`click$9205$9239, {{{1., 0}, {
             0, 1.}}, {-0.15114991487085164`, 0.13097214678905705`}}, {{1, 
           0}, {0, 1}}, {{1, 0}, {0, 1}}], 
          TrackedSymbols :> {DynamicChart`click$9205$9239}]], 
        GeometricTransformationBox[
         TagBox[
          TagBox[
           TooltipBox[
            TagBox[{{}, {}},
             StatusArea[#, 5]& ,
             TagBoxNote->"5"],
            StyleBox["5", {
              GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
           Annotation[#, 
            Style[5, {
              GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
          EventHandlerTag[{
           "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9209$9239, 
              FEPrivate`Not[DynamicChart`click$9209$9239]], PassEventsDown -> 
            True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
         Dynamic[If[
          DynamicChart`click$9209$9239, {{{1., 0}, {0, 1.}}, {
            0.056346511368286, 0.19189859472289947`}}, {{1, 0}, {0, 1}}, {{1, 
           0}, {0, 1}}], TrackedSymbols :> {DynamicChart`click$9209$9239}]], 
        GeometricTransformationBox[
         TagBox[
          TagBox[
           TooltipBox[
            TagBox[{{}, {}},
             StatusArea[#, 4]& ,
             TagBoxNote->"4"],
            StyleBox["4", {
              GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
           Annotation[#, 
            Style[4, {
              GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
          
          EventHandlerTag[{
           "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9213$9239, 
              FEPrivate`Not[DynamicChart`click$9213$9239]], PassEventsDown -> 
            True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
         Dynamic[If[
          DynamicChart`click$9213$9239, {{{1., 0}, {0, 1.}}, {
            0.2, -4.4408920985006264`*^-17}}, {{1, 0}, {0, 1}}, {{1, 0}, {0, 
           1}}], TrackedSymbols :> {DynamicChart`click$9213$9239}]], 
        GeometricTransformationBox[
         TagBox[
          TagBox[
           TooltipBox[
            TagBox[{{}, {}},
             StatusArea[#, 9]& ,
             TagBoxNote->"9"],
            StyleBox["9", {
              GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
           Annotation[#, 
            Style[9, {
              GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
          
          EventHandlerTag[{
           "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9217$9239, 
              FEPrivate`Not[DynamicChart`click$9217$9239]], PassEventsDown -> 
            True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
         Dynamic[
         If[DynamicChart`click$9217$9239, {{{1., 0}, {
             0, 1.}}, {-0.05634651136828594, -0.1918985947228995}}, {{1, 0}, {
           0, 1}}, {{1, 0}, {0, 1}}], 
          TrackedSymbols :> {DynamicChart`click$9217$9239}]]}, {}}, {}}},
    DynamicModuleValues:>{}], {}, {{{}, {}, {}, {}}, {}}},
  ContentSelectable->False,
  PlotRange->{{-1.2, 1.2}, {-1.2, 1.2}},
  PlotRangePadding->Scaled[0.02]]], "Output",
 CellChangeTimes->{3.699954842094189*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NumberLinePlot", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "7", ",", "11", ",", "25"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999548680633073`*^9, 3.6999548680643253`*^9}}],

Cell[BoxData[
 RowBox[{"NumberLinePlot", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "7", ",", "11", ",", "25"}], "}"}], "]"}]], "Output",
 CellChangeTimes->{{3.6999548692789245`*^9, 3.6999548920795116`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "NumberLinePlot"}]], "Input",
 CellChangeTimes->{3.6999548857655153`*^9}],

Cell["Global`NumberLinePlot", "Print", "PrintUsage",
 CellChangeTimes->{3.6999548871140437`*^9},
 CellTags->"Info3699983686-4698757"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Column", "[", 
  RowBox[{"{", 
   RowBox[{"100", ",", "350", ",", "502", ",", "400"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.699954921712164*^9, 3.699954921712164*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"100"},
    {"350"},
    {"502"},
    {"400"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.6999549225644913`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"PieChart", "[", 
    RowBox[{"Range", "[", "3", "]"}], "]"}], ",", 
   RowBox[{"PieChart", "[", 
    RowBox[{"Range", "[", "5", "]"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.699954960759919*^9, 3.6999549607629204`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{{}, {}}, {}, 
     DynamicModuleBox[{DynamicChart`click$9639$9714 = False, 
      DynamicChart`click$9643$9714 = False, DynamicChart`click$9647$9714 = 
      False}, {
       {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {
         {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
          {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
           EdgeForm[GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {2.0943951023931957`, 
                   3.141592653589793}]},
                 
                 ImageSizeCache->{{16.585786437626904`, 
                  91.41421356237309}, {-65.76804263485268, \
-0.5857864376269113}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9639$9714, 
                 FEPrivate`Not[DynamicChart`click$9639$9714]], PassEventsDown -> 
               True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
            Dynamic[If[
             DynamicChart`click$9639$9714, {{{1., 0}, {
                0, 1.}}, {-0.17320508075688776`, 0.09999999999999999}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$9639$9714}]]}, 
          {RGBColor[0.7333333333333333, 1., 0.8337224383916991], EdgeForm[
           GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  DiskBox[{0, 0}, 1., {0., 2.0943951023931957`}]},
                 
                 ImageSizeCache->{{52.58578643762688, 
                  163.4142135623731}, {-75.4142135623731, \
-0.5857864376268935}}],
                StatusArea[#, 2]& ,
                TagBoxNote->"2"],
               StyleBox["2", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[2, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9643$9714, 
                 FEPrivate`Not[DynamicChart`click$9643$9714]], PassEventsDown -> 
               True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
            Dynamic[If[
             DynamicChart`click$9643$9714, {{{1., 0}, {0, 1.}}, {
               0.09999999999999998, 0.17320508075688776`}}, {{1, 0}, {0, 
              1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$9643$9714}]]}, 
          {RGBColor[1, 0.860624, 0.662562], EdgeForm[GrayLevel[0.5]], 
           GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  DiskBox[{0, 0}, 1., {-3.141592653589793, 0.}]},
                 ImageSizeCache->{{16.585786437626894`, 
                  163.41421356237308`}, {-3.4142135623731065`, 
                  71.4142135623731}}],
                StatusArea[#, 3]& ,
                TagBoxNote->"3"],
               StyleBox["3", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[3, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9647$9714, 
                 FEPrivate`Not[DynamicChart`click$9647$9714]], PassEventsDown -> 
               True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
            Dynamic[If[
             DynamicChart`click$9647$9714, {{{1., 0}, {0, 1.}}, {
               1.2246467991473533`*^-17, -0.2}}, {{1, 0}, {0, 1}}, {{1, 0}, {
              0, 1}}], 
             TrackedSymbols :> {
              DynamicChart`click$9647$9714}]]}}, {}}, {}}, {{{
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9639$9714, 
                FEPrivate`Not[DynamicChart`click$9639$9714]], PassEventsDown -> 
              True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
           Dynamic[If[
            DynamicChart`click$9639$9714, {{{1., 0}, {
               0, 1.}}, {-0.17320508075688776`, 0.09999999999999999}}, {{1, 
             0}, {0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$9639$9714}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 2]& ,
               TagBoxNote->"2"],
              StyleBox["2", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[2, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9643$9714, 
                FEPrivate`Not[DynamicChart`click$9643$9714]], PassEventsDown -> 
              True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
           Dynamic[If[
            DynamicChart`click$9643$9714, {{{1., 0}, {0, 1.}}, {
              0.09999999999999998, 0.17320508075688776`}}, {{1, 0}, {0, 
             1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$9643$9714}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 3]& ,
               TagBoxNote->"3"],
              StyleBox["3", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[3, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9647$9714, 
                FEPrivate`Not[DynamicChart`click$9647$9714]], PassEventsDown -> 
              True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
           Dynamic[If[
            DynamicChart`click$9647$9714, {{{1., 0}, {0, 1.}}, {
              1.2246467991473533`*^-17, -0.2}}, {{1, 0}, {0, 1}}, {{1, 0}, {0,
              1}}], TrackedSymbols :> {
             DynamicChart`click$9647$9714}]]}, {}}, {}}},
      DynamicModuleValues:>{}], {}, {{{}, {}, {}, {}}, {}}},
    ContentSelectable->False,
    PlotRange->{{-1.2, 1.2}, {-1.2, 1.2}},
    PlotRangePadding->Scaled[0.02]], ",", 
   GraphicsBox[{{{}, {}}, {}, 
     DynamicModuleBox[{DynamicChart`click$9678$9715 = False, 
      DynamicChart`click$9682$9715 = False, DynamicChart`click$9686$9715 = 
      False, DynamicChart`click$9690$9715 = False, 
      DynamicChart`click$9694$9715 = False}, {
       {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {
         {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
          {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
           EdgeForm[GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  DiskBox[{0, 0}, 1., {2.722713633111154, 3.141592653589793}]},
                 
                 ImageSizeCache->{{16.585786437626904`, 
                  91.41421356237309}, {-32.69925186383073, \
-0.5857864376269006}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9678$9715, 
                 FEPrivate`Not[DynamicChart`click$9678$9715]], PassEventsDown -> 
               True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
            Dynamic[If[
             DynamicChart`click$9678$9715, {{{1., 0}, {
                0, 1.}}, {-0.19562952014676113`, 0.041582338163551946`}}, {{1,
               0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$9678$9715}]]}, 
          {RGBColor[0.7333333333333333, 1., 0.8337224383916991], EdgeForm[
           GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {1.8849555921538759`, 
                   2.722713633111154}]},
                 
                 ImageSizeCache->{{22.810513487359653`, 
                  91.4142135623731}, {-71.89028273562415, \
-0.5857864376269113}}],
                StatusArea[#, 2]& ,
                TagBoxNote->"2"],
               StyleBox["2", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[2, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9682$9715, 
                 FEPrivate`Not[DynamicChart`click$9682$9715]], PassEventsDown -> 
               True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
            Dynamic[If[
             DynamicChart`click$9682$9715, {{{1., 0}, {
                0, 1.}}, {-0.1338261212717716, 0.1486289650954789}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$9682$9715}]]}, 
          {RGBColor[1, 0.986999, 0.742123], EdgeForm[GrayLevel[0.5]], 
           GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {0.6283185307179586, 
                   1.8849555921538759`}]},
                 
                 ImageSizeCache->{{66.33656284263068, 
                  149.6634371573693}, {-75.4142135623731, \
-0.5857864376268935}}],
                StatusArea[#, 3]& ,
                TagBoxNote->"3"],
               StyleBox["3", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[3, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9686$9715, 
                 FEPrivate`Not[DynamicChart`click$9686$9715]], PassEventsDown -> 
               True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
            Dynamic[If[
             DynamicChart`click$9686$9715, {{{1., 0}, {0, 1.}}, {
               0.06180339887498949, 0.1902113032590307}}, {{1, 0}, {0, 1}}, {{
              1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$9686$9715}]]}, 
          {RGBColor[1, 0.860624, 0.662562], EdgeForm[GrayLevel[0.5]], 
           GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {-1.0471975511965974`, 
                   0.6283185307179586}]},
                 
                 ImageSizeCache->{{88.5857864376269, 
                  163.4142135623731}, {-45.734751727431174`, 
                  61.76804263485268}}],
                StatusArea[#, 4]& ,
                TagBoxNote->"4"],
               StyleBox["4", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[4, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9690$9715, 
                 FEPrivate`Not[DynamicChart`click$9690$9715]], PassEventsDown -> 
               True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
            Dynamic[If[
             DynamicChart`click$9690$9715, {{{1., 0}, {0, 1.}}, {
               0.19562952014676116`, -0.041582338163551835`}}, {{1, 0}, {0, 
              1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$9690$9715}]]}, 
          {RGBColor[1, 0.696086, 0.721935], EdgeForm[GrayLevel[0.5]], 
           GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 
                   1., {-3.141592653589793, -1.0471975511965974`}]},
                 
                 ImageSizeCache->{{16.585786437626904`, 
                  127.41421356237312`}, {-3.4142135623730923`, 
                  71.41421356237309}}],
                StatusArea[#, 5]& ,
                TagBoxNote->"5"],
               StyleBox["5", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[5, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9694$9715, 
                 FEPrivate`Not[DynamicChart`click$9694$9715]], PassEventsDown -> 
               True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
            Dynamic[If[
             DynamicChart`click$9694$9715, {{{1., 0}, {
                0, 1.}}, {-0.09999999999999996, -0.17320508075688776`}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {
              DynamicChart`click$9694$9715}]]}}, {}}, {}}, {{{
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9678$9715, 
                FEPrivate`Not[DynamicChart`click$9678$9715]], PassEventsDown -> 
              True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
           Dynamic[If[
            DynamicChart`click$9678$9715, {{{1., 0}, {
               0, 1.}}, {-0.19562952014676113`, 0.041582338163551946`}}, {{1, 
             0}, {0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$9678$9715}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 2]& ,
               TagBoxNote->"2"],
              StyleBox["2", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[2, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9682$9715, 
                FEPrivate`Not[DynamicChart`click$9682$9715]], PassEventsDown -> 
              True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
           Dynamic[If[
            DynamicChart`click$9682$9715, {{{1., 0}, {
               0, 1.}}, {-0.1338261212717716, 0.1486289650954789}}, {{1, 0}, {
             0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$9682$9715}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 3]& ,
               TagBoxNote->"3"],
              StyleBox["3", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[3, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9686$9715, 
                FEPrivate`Not[DynamicChart`click$9686$9715]], PassEventsDown -> 
              True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
           Dynamic[If[
            DynamicChart`click$9686$9715, {{{1., 0}, {0, 1.}}, {
              0.06180339887498949, 0.1902113032590307}}, {{1, 0}, {0, 1}}, {{
             1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$9686$9715}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 4]& ,
               TagBoxNote->"4"],
              StyleBox["4", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[4, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9690$9715, 
                FEPrivate`Not[DynamicChart`click$9690$9715]], PassEventsDown -> 
              True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
           Dynamic[If[
            DynamicChart`click$9690$9715, {{{1., 0}, {0, 1.}}, {
              0.19562952014676116`, -0.041582338163551835`}}, {{1, 0}, {0, 
             1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$9690$9715}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 5]& ,
               TagBoxNote->"5"],
              StyleBox["5", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[5, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$9694$9715, 
                FEPrivate`Not[DynamicChart`click$9694$9715]], PassEventsDown -> 
              True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
           Dynamic[If[
            DynamicChart`click$9694$9715, {{{1., 0}, {
               0, 1.}}, {-0.09999999999999996, -0.17320508075688776`}}, {{1, 
             0}, {0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$9694$9715}]]}, {}}, {}}},
      DynamicModuleValues:>{}], {}, {{{}, {}, {}, {}}, {}}},
    ContentSelectable->False,
    PlotRange->{{-1.2, 1.2}, {-1.2, 1.2}},
    PlotRangePadding->Scaled[0.02]]}], "}"}]], "Output",
 CellChangeTimes->{3.6999549618674664`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"BarChart", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "4", ",", "2"}], "}"}], "]"}], ",", 
   RowBox[{"BarChart", "[", 
    RowBox[{"{", 
     RowBox[{"5", ",", "1", ",", "1", ",", "0"}], "}"}], "]"}], ",", 
   RowBox[{"BarChart", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "3", ",", "2", ",", "4"}], "}"}], "]"}]}], 
  "}"}]], "Input",
 CellChangeTimes->{{3.699954988214464*^9, 3.699954988214464*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{
     {Opacity[0], PointBox[{{0.44545454545454544`, 0.}}]}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[{Opacity[0.7], Thickness[Small]}], 
       {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
        EdgeForm[{Opacity[0.7], Thickness[Small]}], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{0.5454545454545454, 0.}, {1.4545454545454546`, 1.},
               "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{11.92825905872553, 50.412432319866724`}, {
             22.395249688660247`, 48.77699958488033}}],
           StatusArea[#, 1]& ,
           TagBoxNote->"1"],
          StyleBox["1", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[1, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
        EdgeForm[{Opacity[0.7], Thickness[Small]}], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{1.5454545454545454`, 0.}, {2.4545454545454546`, 
              1.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{53.710849645980836`, 92.19502290712202}, {
             22.395249688660247`, 48.77699958488033}}],
           StatusArea[#, 1]& ,
           TagBoxNote->"1"],
          StyleBox["1", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[1, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
        EdgeForm[{Opacity[0.7], Thickness[Small]}], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{2.5454545454545454`, 0.}, {3.4545454545454546`, 
              4.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{95.49344023323616, 
             133.97761349437732`}, {-55.25, 48.77699958488033}}],
           StatusArea[#, 4]& ,
           TagBoxNote->"4"],
          StyleBox["4", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[4, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
        EdgeForm[{Opacity[0.7], Thickness[Small]}], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{3.5454545454545454`, 0.}, {4.454545454545454, 2.}, 
              "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{137.27603082049146`, 
             175.76020408163262`}, {-3.4865002075598355`, 48.77699958488033}}],
           StatusArea[#, 2]& ,
           TagBoxNote->"2"],
          StyleBox["2", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[2, {
            GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {}, {}, GraphicsGroupBox[
      {GrayLevel[0], 
       StyleBox[
        StyleBox[
         StyleBox[{
           {Thickness[Tiny], 
            LineBox[{{0.44545454545454544`, 0.}, {4.454545454545454, 
             0.}}], {}}, {
            {Thickness[Tiny], 
             LineBox[{{0.5454545454545454, 0.}, 
               Offset[{-1.102182119232618*^-15, -6.}, {0.5454545454545454, 
                0.}]}], 
             LineBox[{{4.454545454545454, 0.}, 
               Offset[{-1.102182119232618*^-15, -6.}, {4.454545454545454, 
                0.}]}], {{}, {}, {}, {}, {}, {}}}, {}}},
          Antialiasing->False], "GraphicsAxes",
         StripOnInput->False],
        Antialiasing->False]}]},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{False, True},
    AxesLabel->{None, None},
    AxesOrigin->{0.44545454545454544`, 0},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    PlotRangePadding->Scaled[0.02],
    Ticks->{None, Automatic}], ",", 
   GraphicsBox[{
     {Opacity[0], PointBox[{{0.44545454545454544`, 0.}}]}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[{Opacity[0.7], Thickness[Small]}], 
       {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
        EdgeForm[{Opacity[0.7], Thickness[Small]}], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{0.5454545454545454, 0.}, {1.4545454545454546`, 5.},
               "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{11.92825905872553, 
             50.412432319866724`}, {-55.250000000000014`, 
             48.776999584880315`}}],
           StatusArea[#, 5]& ,
           TagBoxNote->"5"],
          StyleBox["5", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[5, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
        EdgeForm[{Opacity[0.7], Thickness[Small]}], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{1.5454545454545454`, 0.}, {2.4545454545454546`, 
              1.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{53.710849645980836`, 92.19502290712202}, {
             27.57159966790425, 48.776999584880315`}}],
           StatusArea[#, 1]& ,
           TagBoxNote->"1"],
          StyleBox["1", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[1, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
        EdgeForm[{Opacity[0.7], Thickness[Small]}], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{2.5454545454545454`, 0.}, {3.4545454545454546`, 
              1.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{95.49344023323616, 133.97761349437732`}, {
             27.57159966790425, 48.776999584880315`}}],
           StatusArea[#, 1]& ,
           TagBoxNote->"1"],
          StyleBox["1", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[1, {
            GrayLevel[0]}], "Tooltip"]& ]}, {}}, {}, {}}, {}, {}, 
     GraphicsGroupBox[
      {GrayLevel[0], 
       StyleBox[
        StyleBox[
         StyleBox[{
           {Thickness[Tiny], 
            LineBox[{{0.44545454545454544`, 0.}, {4.454545454545454, 
             0.}}], {}}, {
            {Thickness[Tiny], 
             LineBox[{{0.5454545454545454, 0.}, 
               Offset[{-1.102182119232618*^-15, -6.}, {0.5454545454545454, 
                0.}]}], 
             LineBox[{{4.454545454545454, 0.}, 
               Offset[{-1.102182119232618*^-15, -6.}, {4.454545454545454, 
                0.}]}], {{}, {}, {}, {}, {}, {}}}, {}}},
          Antialiasing->False], "GraphicsAxes",
         StripOnInput->False],
        Antialiasing->False]}]},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{False, True},
    AxesLabel->{None, None},
    AxesOrigin->{0.44545454545454544`, 0},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    PlotRangePadding->Scaled[0.02],
    Ticks->{None, Automatic}], ",", 
   GraphicsBox[{
     {Opacity[0], PointBox[{{0.44545454545454544`, 0.}}]}, {{}, 
      {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
       EdgeForm[{Opacity[0.7], Thickness[Small]}], 
       {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
        EdgeForm[{Opacity[0.7], Thickness[Small]}], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{0.5454545454545454, 0.}, {1.4545454545454546`, 1.},
               "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{11.92825905872553, 50.412432319866724`}, {
             22.395249688660247`, 48.77699958488033}}],
           StatusArea[#, 1]& ,
           TagBoxNote->"1"],
          StyleBox["1", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[1, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
        EdgeForm[{Opacity[0.7], Thickness[Small]}], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{1.5454545454545454`, 0.}, {2.4545454545454546`, 
              3.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{53.710849645980836`, 
             92.19502290712202}, {-29.368250103779914`, 48.77699958488033}}],
           StatusArea[#, 3]& ,
           TagBoxNote->"3"],
          StyleBox["3", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[3, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
        EdgeForm[{Opacity[0.7], Thickness[Small]}], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{2.5454545454545454`, 0.}, {3.4545454545454546`, 
              2.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{95.49344023323616, 
             133.97761349437732`}, {-3.4865002075598355`, 48.77699958488033}}],
           StatusArea[#, 2]& ,
           TagBoxNote->"2"],
          StyleBox["2", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[2, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
        EdgeForm[{Opacity[0.7], Thickness[Small]}], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{3.5454545454545454`, 0.}, {4.454545454545454, 4.}, 
              "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{137.27603082049146`, 
             175.76020408163262`}, {-55.25, 48.77699958488033}}],
           StatusArea[#, 4]& ,
           TagBoxNote->"4"],
          StyleBox["4", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[4, {
            GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {}, {}, GraphicsGroupBox[
      {GrayLevel[0], 
       StyleBox[
        StyleBox[
         StyleBox[{
           {Thickness[Tiny], 
            LineBox[{{0.44545454545454544`, 0.}, {4.454545454545454, 
             0.}}], {}}, {
            {Thickness[Tiny], 
             LineBox[{{0.5454545454545454, 0.}, 
               Offset[{-1.102182119232618*^-15, -6.}, {0.5454545454545454, 
                0.}]}], 
             LineBox[{{4.454545454545454, 0.}, 
               Offset[{-1.102182119232618*^-15, -6.}, {4.454545454545454, 
                0.}]}], {{}, {}, {}, {}, {}, {}}}, {}}},
          Antialiasing->False], "GraphicsAxes",
         StripOnInput->False],
        Antialiasing->False]}]},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{False, True},
    AxesLabel->{None, None},
    AxesOrigin->{0.44545454545454544`, 0},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    PlotRangePadding->Scaled[0.02],
    Ticks->{None, Automatic}]}], "}"}]], "Output",
 CellChangeTimes->{3.69995498931363*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}], "+", "10"}]], "Input",
 CellChangeTimes->{{3.6999550136409845`*^9, 3.699955013641985*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"11", ",", "12", ",", "13"}], "}"}]], "Output",
 CellChangeTimes->{3.6999550144222913`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"1", ",", "1", ",", "2"}], "}"}], "*", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.6999550221492987`*^9, 3.6999550221492987`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "6"}], "}"}]], "Output",
 CellChangeTimes->{3.699955022887656*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Range", "[", "10", "]"}], "^", "2"}]], "Input",
 CellChangeTimes->{{3.6999550353714094`*^9, 3.6999550353714094`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "4", ",", "9", ",", "16", ",", "25", ",", "36", ",", "49", ",", 
   "64", ",", "81", ",", "100"}], "}"}]], "Output",
 CellChangeTimes->{3.6999550363887978`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Range", "[", "20", "]"}], "^", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.699955047375553*^9, 3.699955047375553*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQEf7FFpBgcIJQClOaC0Epq4AZQWgdKWUFoCSjtB
aRkI3eAB5StA6QBUcx1CoHwVKB0JpdWg8nFQvgaUToLSWhBaIRXK14HalwHl
60Hlc9DcXQClDSG0QBGUbwS1rwTKN4bQE8qgfBMoXekAAOkrGTI=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 20.}, {0, 400.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.4, 0.4}, {8., 8.}}]], "Output",
 CellChangeTimes->{3.6999550484732084`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sort", "[", 
  RowBox[{"{", 
   RowBox[{"4", ",", "2", ",", "1", ",", "3", ",", "6"}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6999550615823708`*^9, 3.6999550615823708`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "6"}], "}"}]], "Output",
 CellChangeTimes->{3.6999550624837356`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"{", 
   RowBox[{"5", ",", "3", ",", "4", ",", "5", ",", "3", ",", "4", ",", "5"}], 
   "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.699955069369586*^9, 3.699955069370587*^9}}],

Cell[BoxData["7"], "Output",
 CellChangeTimes->{3.699955073147402*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Total", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999550805494585`*^9, 3.69995508055046*^9}}],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{3.699955081379974*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Total", "[", 
  RowBox[{"Range", "[", "10", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999550887317967`*^9, 3.6999550887317967`*^9}}],

Cell[BoxData["55"], "Output",
 CellChangeTimes->{3.6999550896849356`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Count", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "a", ",", "a", ",", "c", ",", "b", ",", "a"}],
     "}"}], ",", "a"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999551084485617`*^9, 3.699955108449562*^9}}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.6999551095402193`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Count", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "a", ",", "a", ",", "c", ",", "b", ",", "a"}],
     "}"}], ",", "c"}], "]"}]], "Input",
 CellChangeTimes->{{3.699955114477149*^9, 3.699955117168056*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.6999551180843787`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", "[", 
  RowBox[{"{", 
   RowBox[{"7", ",", "6", ",", "5"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.699955143336748*^9, 3.6999551433523703`*^9}}],

Cell[BoxData["7"], "Output",
 CellChangeTimes->{3.6999551441206017`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Last", "[", 
  RowBox[{"{", 
   RowBox[{"7", ",", "6", ",", "5"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.699955149679332*^9, 3.699955149682334*^9}}],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{3.699955150333808*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Part", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"7", ",", "6", ",", "5"}], "}"}], ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999551603183193`*^9, 3.6999551603183193`*^9}}],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{3.6999551611960573`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", "[", 
  RowBox[{"Sort", "[", 
   RowBox[{"{", 
    RowBox[{"6", ",", "7", ",", "1", ",", "2", ",", "4", ",", "5"}], "}"}], 
   "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.699955173224923*^9, 3.699955173224923*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.6999551740484524`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Min", "[", 
  RowBox[{"{", 
   RowBox[{"6", ",", "7", ",", "2", ",", "4", ",", "5"}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6999551795782447`*^9, 3.6999551816029434`*^9}}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.6999551820353174`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegerDigits", "[", "1988", "]"}]], "Input",
 CellChangeTimes->{{3.6999552012880154`*^9, 3.6999552012880154`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "9", ",", "8", ",", "8"}], "}"}]], "Output",
 CellChangeTimes->{3.69995520212915*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Last", "[", 
  RowBox[{"IntegerDigits", "[", "1988", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.699955210682119*^9, 3.6999552106851234`*^9}}],

Cell[BoxData["8"], "Output",
 CellChangeTimes->{3.6999552114760914`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "101", ",", "203", ",", "401", ",", "602", ",", "332", ",", "412"}], 
    "}"}], ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.699955227759551*^9, 3.699955230377985*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"101", ",", "203", ",", "401", ",", "602"}], "}"}]], "Output",
 CellChangeTimes->{3.6999552307691298`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 SuperscriptBox["2", "100"]], "Input",
 CellChangeTimes->{{3.699955243536742*^9, 3.699955264388932*^9}}],

Cell[BoxData["1267650600228229401496703205376"], "Output",
 CellChangeTimes->{{3.6999552512045336`*^9, 3.6999552648863163`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{
   RowBox[{"IntegerDigits", "[", 
    RowBox[{"2", "^", "100"}], "]"}], ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.699955274349926*^9, 3.699955274349926*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "6", ",", "7", ",", "6", ",", "5", ",", "0", ",", "6", 
   ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.699955275185435*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Drop", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "101", ",", "203", ",", "401", ",", "602", ",", "332", ",", "412"}], 
    "}"}], ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.699955306689707*^9, 3.6999553100774627`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"332", ",", "412"}], "}"}]], "Output",
 CellChangeTimes->{{3.699955307658873*^9, 3.6999553105313234`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{"5", ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999553378809795`*^9, 3.6999553533767242`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Table", "::", "itform"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\:4f4d\:7f6e \[NoBreak]\\!\\(2\\)\[NoBreak] \:5904\:7684\
\:53c2\:6570 \[NoBreak]\\!\\(10\\)\[NoBreak] \:6ca1\:6709\:8fed\:4ee3\:5668\
\:7684\:6b63\:786e\:683c\:5f0f. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/itform\\\", ButtonNote -> \
\\\"Table::itform\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6999553390104017`*^9, 3.6999553544042397`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{"5", ",", 
   RowBox[{"{", "10", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999553895689554`*^9, 3.6999553928144426`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "5", ",", "5", ",", "5", ",", "5", ",", "5", ",", "5", ",", "5", ",", "5", 
   ",", "5", ",", "5"}], "}"}]], "Output",
 CellChangeTimes->{3.6999553932132163`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{"x", ",", 
   RowBox[{"{", "5", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.699955374854519*^9, 3.699955386341468*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", ",", "x", ",", "x", ",", "x", ",", "x"}], "}"}]], "Output",
 CellChangeTimes->{{3.6999553759093456`*^9, 3.699955387280903*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", "10", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.699955445744689*^9, 3.699955462215686*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.699955451830126*^9, 3.699955462583091*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"PieChart", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}], "]"}], ",", 
   RowBox[{"{", "3", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.69995547825797*^9, 3.6999554858087096`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{{}, {}}, {}, 
     DynamicModuleBox[{DynamicChart`click$16149$16251 = False, 
      DynamicChart`click$16153$16251 = False, DynamicChart`click$16157$16251 =
       False}, {
       {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {
         {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
          {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
           EdgeForm[GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {1.0471975511965979`, 
                   3.141592653589793}]},
                 
                 ImageSizeCache->{{16.585786437626904`, 
                  127.41421356237309`}, {-75.41421356237309, \
-0.5857864376269113}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16149$16251, 
                 FEPrivate`Not[DynamicChart`click$16149$16251]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$16149$16251, {{{1., 0}, {
                0, 1.}}, {-0.10000000000000005`, 0.17320508075688773`}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$16149$16251}]]}, 
          {RGBColor[0.7333333333333333, 1., 0.8337224383916991], EdgeForm[
           GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {-1.0471975511965974`, 
                   1.0471975511965979`}]},
                 
                 ImageSizeCache->{{88.5857864376269, 
                  163.4142135623731}, {-65.76804263485269, 
                  61.76804263485268}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16153$16251, 
                 FEPrivate`Not[DynamicChart`click$16153$16251]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$16153$16251, {{{1., 0}, {0, 1.}}, {0.2, 
               4.4408920985006264`*^-17}}, {{1, 0}, {0, 1}}, {{1, 0}, {0, 
              1}}], TrackedSymbols :> {DynamicChart`click$16153$16251}]]}, 
          {RGBColor[1, 0.860624, 0.662562], EdgeForm[GrayLevel[0.5]], 
           GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 
                   1., {-3.141592653589793, -1.0471975511965974`}]},
                 ImageSizeCache->{{16.585786437626904`, 
                  127.41421356237312`}, {-3.4142135623730923`, 
                  71.41421356237309}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16157$16251, 
                 FEPrivate`Not[DynamicChart`click$16157$16251]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$16157$16251, {{{1., 0}, {
                0, 1.}}, {-0.09999999999999996, -0.17320508075688776`}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {
              DynamicChart`click$16157$16251}]]}}, {}}, {}}, {{{
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16149$16251, 
                FEPrivate`Not[DynamicChart`click$16149$16251]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$16149$16251, {{{1., 0}, {
               0, 1.}}, {-0.10000000000000005`, 0.17320508075688773`}}, {{1, 
             0}, {0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$16149$16251}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16153$16251, 
                FEPrivate`Not[DynamicChart`click$16153$16251]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$16153$16251, {{{1., 0}, {0, 1.}}, {0.2, 
              4.4408920985006264`*^-17}}, {{1, 0}, {0, 1}}, {{1, 0}, {0, 1}}],
             TrackedSymbols :> {DynamicChart`click$16153$16251}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16157$16251, 
                FEPrivate`Not[DynamicChart`click$16157$16251]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$16157$16251, {{{1., 0}, {
               0, 1.}}, {-0.09999999999999996, -0.17320508075688776`}}, {{1, 
             0}, {0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$16157$16251}]]}, {}}, {}}},
      DynamicModuleValues:>{}], {}, {{{}, {}, {}, {}}, {}}},
    ContentSelectable->False,
    PlotRange->{{-1.2, 1.2}, {-1.2, 1.2}},
    PlotRangePadding->Scaled[0.02]], ",", 
   GraphicsBox[{{{}, {}}, {}, 
     DynamicModuleBox[{DynamicChart`click$16188$16252 = False, 
      DynamicChart`click$16192$16252 = False, DynamicChart`click$16196$16252 =
       False}, {
       {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {
         {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
          {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
           EdgeForm[GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {1.0471975511965979`, 
                   3.141592653589793}]},
                 
                 ImageSizeCache->{{16.585786437626904`, 
                  127.41421356237309`}, {-75.41421356237309, \
-0.5857864376269113}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16188$16252, 
                 FEPrivate`Not[DynamicChart`click$16188$16252]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$16188$16252, {{{1., 0}, {
                0, 1.}}, {-0.10000000000000005`, 0.17320508075688773`}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$16188$16252}]]}, 
          {RGBColor[0.7333333333333333, 1., 0.8337224383916991], EdgeForm[
           GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {-1.0471975511965974`, 
                   1.0471975511965979`}]},
                 
                 ImageSizeCache->{{88.5857864376269, 
                  163.4142135623731}, {-65.76804263485269, 
                  61.76804263485268}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16192$16252, 
                 FEPrivate`Not[DynamicChart`click$16192$16252]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$16192$16252, {{{1., 0}, {0, 1.}}, {0.2, 
               4.4408920985006264`*^-17}}, {{1, 0}, {0, 1}}, {{1, 0}, {0, 
              1}}], TrackedSymbols :> {DynamicChart`click$16192$16252}]]}, 
          {RGBColor[1, 0.860624, 0.662562], EdgeForm[GrayLevel[0.5]], 
           GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 
                   1., {-3.141592653589793, -1.0471975511965974`}]},
                 
                 ImageSizeCache->{{16.585786437626904`, 
                  127.41421356237312`}, {-3.4142135623730923`, 
                  71.41421356237309}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16196$16252, 
                 FEPrivate`Not[DynamicChart`click$16196$16252]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$16196$16252, {{{1., 0}, {
                0, 1.}}, {-0.09999999999999996, -0.17320508075688776`}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {
              DynamicChart`click$16196$16252}]]}}, {}}, {}}, {{{
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16188$16252, 
                FEPrivate`Not[DynamicChart`click$16188$16252]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$16188$16252, {{{1., 0}, {
               0, 1.}}, {-0.10000000000000005`, 0.17320508075688773`}}, {{1, 
             0}, {0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$16188$16252}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16192$16252, 
                FEPrivate`Not[DynamicChart`click$16192$16252]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$16192$16252, {{{1., 0}, {0, 1.}}, {0.2, 
              4.4408920985006264`*^-17}}, {{1, 0}, {0, 1}}, {{1, 0}, {0, 1}}],
             TrackedSymbols :> {DynamicChart`click$16192$16252}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16196$16252, 
                FEPrivate`Not[DynamicChart`click$16196$16252]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$16196$16252, {{{1., 0}, {
               0, 1.}}, {-0.09999999999999996, -0.17320508075688776`}}, {{1, 
             0}, {0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$16196$16252}]]}, {}}, {}}},
      DynamicModuleValues:>{}], {}, {{{}, {}, {}, {}}, {}}},
    ContentSelectable->False,
    PlotRange->{{-1.2, 1.2}, {-1.2, 1.2}},
    PlotRangePadding->Scaled[0.02]], ",", 
   GraphicsBox[{{{}, {}}, {}, 
     DynamicModuleBox[{DynamicChart`click$16227$16253 = False, 
      DynamicChart`click$16231$16253 = False, DynamicChart`click$16235$16253 =
       False}, {
       {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {
         {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
          {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
           EdgeForm[GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {1.0471975511965979`, 
                   3.141592653589793}]},
                 
                 ImageSizeCache->{{16.585786437626904`, 
                  127.41421356237309`}, {-75.41421356237309, \
-0.5857864376269113}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16227$16253, 
                 FEPrivate`Not[DynamicChart`click$16227$16253]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$16227$16253, {{{1., 0}, {
                0, 1.}}, {-0.10000000000000005`, 0.17320508075688773`}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$16227$16253}]]}, 
          {RGBColor[0.7333333333333333, 1., 0.8337224383916991], EdgeForm[
           GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {-1.0471975511965974`, 
                   1.0471975511965979`}]},
                 
                 ImageSizeCache->{{88.5857864376269, 
                  163.4142135623731}, {-65.76804263485269, 
                  61.76804263485268}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16231$16253, 
                 FEPrivate`Not[DynamicChart`click$16231$16253]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$16231$16253, {{{1., 0}, {0, 1.}}, {0.2, 
               4.4408920985006264`*^-17}}, {{1, 0}, {0, 1}}, {{1, 0}, {0, 
              1}}], TrackedSymbols :> {DynamicChart`click$16231$16253}]]}, 
          {RGBColor[1, 0.860624, 0.662562], EdgeForm[GrayLevel[0.5]], 
           GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 
                   1., {-3.141592653589793, -1.0471975511965974`}]},
                 
                 ImageSizeCache->{{16.585786437626904`, 
                  127.41421356237312`}, {-3.4142135623730923`, 
                  71.41421356237309}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16235$16253, 
                 FEPrivate`Not[DynamicChart`click$16235$16253]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$16235$16253, {{{1., 0}, {
                0, 1.}}, {-0.09999999999999996, -0.17320508075688776`}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {
              DynamicChart`click$16235$16253}]]}}, {}}, {}}, {{{
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16227$16253, 
                FEPrivate`Not[DynamicChart`click$16227$16253]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$16227$16253, {{{1., 0}, {
               0, 1.}}, {-0.10000000000000005`, 0.17320508075688773`}}, {{1, 
             0}, {0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$16227$16253}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16231$16253, 
                FEPrivate`Not[DynamicChart`click$16231$16253]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$16231$16253, {{{1., 0}, {0, 1.}}, {0.2, 
              4.4408920985006264`*^-17}}, {{1, 0}, {0, 1}}, {{1, 0}, {0, 1}}],
             TrackedSymbols :> {DynamicChart`click$16231$16253}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$16235$16253, 
                FEPrivate`Not[DynamicChart`click$16235$16253]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$16235$16253, {{{1., 0}, {
               0, 1.}}, {-0.09999999999999996, -0.17320508075688776`}}, {{1, 
             0}, {0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$16235$16253}]]}, {}}, {}}},
      DynamicModuleValues:>{}], {}, {{{}, {}, {}, {}}, {}}},
    ContentSelectable->False,
    PlotRange->{{-1.2, 1.2}, {-1.2, 1.2}},
    PlotRangePadding->Scaled[0.02]]}], "}"}]], "Output",
 CellChangeTimes->{{3.6999554802309413`*^9, 3.6999554862612257`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"a", "[", "n", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999555057676773`*^9, 3.699955505769681*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a", "[", "1", "]"}], ",", 
   RowBox[{"a", "[", "2", "]"}], ",", 
   RowBox[{"a", "[", "3", "]"}], ",", 
   RowBox[{"a", "[", "4", "]"}], ",", 
   RowBox[{"a", "[", "5", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6999555066421175`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"n", "+", "1"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.699955543905772*^9, 3.699955543905772*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", 
   ",", "10", ",", "11"}], "}"}]], "Output",
 CellChangeTimes->{3.699955544855007*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"n", "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999555730355735`*^9, 3.6999555730355735`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "4", ",", "9", ",", "16", ",", "25", ",", "36", ",", "49", ",", 
   "64", ",", "81", ",", "100"}], "}"}]], "Output",
 CellChangeTimes->{3.6999555771624994`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Range", "[", "n", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999556001314487`*^9, 3.6999556001314487`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.699955601013129*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Column", "[", 
    RowBox[{"Range", "[", "n", "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "8"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.699955612696045*^9, 3.6999556126981525`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[GridBox[{
      {"1"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"], ",", 
   TagBox[GridBox[{
      {"1"},
      {"2"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"], ",", 
   TagBox[GridBox[{
      {"1"},
      {"2"},
      {"3"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"], ",", 
   TagBox[GridBox[{
      {"1"},
      {"2"},
      {"3"},
      {"4"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"], ",", 
   TagBox[GridBox[{
      {"1"},
      {"2"},
      {"3"},
      {"4"},
      {"5"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"], ",", 
   TagBox[GridBox[{
      {"1"},
      {"2"},
      {"3"},
      {"4"},
      {"5"},
      {"6"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"], ",", 
   TagBox[GridBox[{
      {"1"},
      {"2"},
      {"3"},
      {"4"},
      {"5"},
      {"6"},
      {"7"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"], ",", 
   TagBox[GridBox[{
      {"1"},
      {"2"},
      {"3"},
      {"4"},
      {"5"},
      {"6"},
      {"7"},
      {"8"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    "Column"]}], "}"}]], "Output",
 CellChangeTimes->{3.6999556135074587`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"Range", "[", 
     RowBox[{"10", "*", "n"}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.699955647701823*^9, 3.699955647701823*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{}, 
     {RGBColor[0.24720000000000014`, 0.24, 0.6], 
      PointBox[{{1., 1.}, {2., 2.}, {3., 3.}, {4., 4.}, {5., 5.}, {6., 6.}, {
       7., 7.}, {8., 8.}, {9., 9.}, {10., 10.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    Method->{},
    PlotRange->{{0, 10.}, {0, 10.}},
    PlotRangeClipping->True,
    PlotRangePadding->{{0.2, 0.2}, {0.2, 0.2}}], ",", 
   GraphicsBox[{{}, 
     {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQEf7FFpBgdUmgONFkCjRdBoCTRaBo1WQKOV0GgV
NFoNjdZAo7XQaB00Wg+NNkCjDdFoIzTaGI02gdMA/GISxA==
       "]]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    Method->{},
    PlotRange->{{0, 20.}, {0, 20.}},
    PlotRangeClipping->True,
    PlotRangePadding->{{0.4, 0.4}, {0.4, 0.4}}], ",", 
   GraphicsBox[{{}, 
     {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJxdxUkKQAAYQOE/K0sLCwsJSZJknqczOIKydnVHQEp5r16fsx3rroiIdf/4
ds5/ZfmrQg3q0IAmtKELPejDAIYwgjFMYAozmMMClrCCNWxgCzvYwwGOcPq8
AJ/nHEw=
       "]]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    Method->{},
    PlotRange->{{0, 30.}, {0, 30.}},
    PlotRangeClipping->True,
    PlotRangePadding->{{0.6, 0.6}, {0.6, 0.6}}]}], "}"}]], "Output",
 CellChangeTimes->{3.699955648733108*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{"1", ",", 
   RowBox[{"{", "1", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999556788968334`*^9, 3.6999557164550514`*^9}}],

Cell[BoxData[
 RowBox[{"{", "1", "}"}]], "Output",
 CellChangeTimes->{{3.6999556980511026`*^9, 3.6999557168719597`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{"1", ",", 
   RowBox[{"{", "2", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999557292245455`*^9, 3.699955729754187*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.6999557301787786`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"PieChart", "[", 
    RowBox[{"Table", "[", 
     RowBox[{"1", ",", 
      RowBox[{"{", "n", "}"}]}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999557519925404`*^9, 3.6999557580277967`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{{}, {}}, {}, 
     DynamicModuleBox[{DynamicChart`click$21797$21977 = False}, {
       {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {
         {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
          {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
           EdgeForm[GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {-3.141592653589793, 
                   3.141592653589793}]},
                 ImageSizeCache->{{17., 163.}, {-75., 71.}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21797$21977, 
                 FEPrivate`Not[DynamicChart`click$21797$21977]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$21797$21977, {{{1., 0}, {0, 1.}}, {
               0.2, 0}}, {{1, 0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {
              DynamicChart`click$21797$21977}]]}}, {}}, {}}, {{
         GeometricTransformationBox[
          TagBox[
           TagBox[
            TooltipBox[
             TagBox[{{}, {}},
              StatusArea[#, 1]& ,
              TagBoxNote->"1"],
             StyleBox["1", {
               GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
            Annotation[#, 
             Style[1, {
               GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
           
           EventHandlerTag[{
            "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21797$21977, 
               FEPrivate`Not[DynamicChart`click$21797$21977]], PassEventsDown -> 
             True, PassEventsDown -> Automatic, PassEventsUp -> True}]], 
          Dynamic[If[
           DynamicChart`click$21797$21977, {{{1., 0}, {0, 1.}}, {0.2, 0}}, {{
            1, 0}, {0, 1}}, {{1, 0}, {0, 1}}], 
           TrackedSymbols :> {DynamicChart`click$21797$21977}]], {}}, {}}},
      DynamicModuleValues:>{}], {}, {{{}, {}, {}, {}}, {}}},
    ContentSelectable->False,
    PlotRange->{{-1.2, 1.2}, {-1.2, 1.2}},
    PlotRangePadding->Scaled[0.02]], ",", 
   GraphicsBox[{{{}, {}}, {}, 
     DynamicModuleBox[{DynamicChart`click$21824$21978 = False, 
      DynamicChart`click$21828$21978 = False}, {
       {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {
         {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
          {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
           EdgeForm[GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  DiskBox[{0, 0}, 1., {0., 3.141592653589793}]},
                 
                 ImageSizeCache->{{16.585786437626894`, 
                  163.41421356237308`}, {-75.4142135623731, \
-0.5857864376268935}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21824$21978, 
                 FEPrivate`Not[DynamicChart`click$21824$21978]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$21824$21978, {{{1., 0}, {0, 1.}}, {
               1.2246467991473533`*^-17, 0.2}}, {{1, 0}, {0, 1}}, {{1, 0}, {0,
               1}}], TrackedSymbols :> {DynamicChart`click$21824$21978}]]}, 
          {RGBColor[0.7333333333333333, 1., 0.8337224383916991], EdgeForm[
           GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  DiskBox[{0, 0}, 1., {-3.141592653589793, 0.}]},
                 
                 ImageSizeCache->{{16.585786437626894`, 
                  163.41421356237308`}, {-3.4142135623731065`, 
                  71.4142135623731}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21828$21978, 
                 FEPrivate`Not[DynamicChart`click$21828$21978]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$21828$21978, {{{1., 0}, {0, 1.}}, {
               1.2246467991473533`*^-17, -0.2}}, {{1, 0}, {0, 1}}, {{1, 0}, {
              0, 1}}], 
             TrackedSymbols :> {
              DynamicChart`click$21828$21978}]]}}, {}}, {}}, {{{
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21824$21978, 
                FEPrivate`Not[DynamicChart`click$21824$21978]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$21824$21978, {{{1., 0}, {0, 1.}}, {
              1.2246467991473533`*^-17, 0.2}}, {{1, 0}, {0, 1}}, {{1, 0}, {0, 
             1}}], TrackedSymbols :> {DynamicChart`click$21824$21978}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21828$21978, 
                FEPrivate`Not[DynamicChart`click$21828$21978]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$21828$21978, {{{1., 0}, {0, 1.}}, {
              1.2246467991473533`*^-17, -0.2}}, {{1, 0}, {0, 1}}, {{1, 0}, {0,
              1}}], TrackedSymbols :> {
             DynamicChart`click$21828$21978}]]}, {}}, {}}},
      DynamicModuleValues:>{}], {}, {{{}, {}, {}, {}}, {}}},
    ContentSelectable->False,
    PlotRange->{{-1.2, 1.2}, {-1.2, 1.2}},
    PlotRangePadding->Scaled[0.02]], ",", 
   GraphicsBox[{{{}, {}}, {}, 
     DynamicModuleBox[{DynamicChart`click$21857$21979 = False, 
      DynamicChart`click$21861$21979 = False, DynamicChart`click$21865$21979 =
       False}, {
       {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {
         {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
          {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
           EdgeForm[GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {1.0471975511965979`, 
                   3.141592653589793}]},
                 
                 ImageSizeCache->{{16.585786437626904`, 
                  127.41421356237309`}, {-75.41421356237309, \
-0.5857864376269113}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21857$21979, 
                 FEPrivate`Not[DynamicChart`click$21857$21979]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$21857$21979, {{{1., 0}, {
                0, 1.}}, {-0.10000000000000005`, 0.17320508075688773`}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$21857$21979}]]}, 
          {RGBColor[0.7333333333333333, 1., 0.8337224383916991], EdgeForm[
           GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {-1.0471975511965974`, 
                   1.0471975511965979`}]},
                 
                 ImageSizeCache->{{88.5857864376269, 
                  163.4142135623731}, {-65.76804263485269, 
                  61.76804263485268}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21861$21979, 
                 FEPrivate`Not[DynamicChart`click$21861$21979]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$21861$21979, {{{1., 0}, {0, 1.}}, {0.2, 
               4.4408920985006264`*^-17}}, {{1, 0}, {0, 1}}, {{1, 0}, {0, 
              1}}], TrackedSymbols :> {DynamicChart`click$21861$21979}]]}, 
          {RGBColor[1, 0.860624, 0.662562], EdgeForm[GrayLevel[0.5]], 
           GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 
                   1., {-3.141592653589793, -1.0471975511965974`}]},
                 
                 ImageSizeCache->{{16.585786437626904`, 
                  127.41421356237312`}, {-3.4142135623730923`, 
                  71.41421356237309}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21865$21979, 
                 FEPrivate`Not[DynamicChart`click$21865$21979]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$21865$21979, {{{1., 0}, {
                0, 1.}}, {-0.09999999999999996, -0.17320508075688776`}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {
              DynamicChart`click$21865$21979}]]}}, {}}, {}}, {{{
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21857$21979, 
                FEPrivate`Not[DynamicChart`click$21857$21979]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$21857$21979, {{{1., 0}, {
               0, 1.}}, {-0.10000000000000005`, 0.17320508075688773`}}, {{1, 
             0}, {0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$21857$21979}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21861$21979, 
                FEPrivate`Not[DynamicChart`click$21861$21979]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$21861$21979, {{{1., 0}, {0, 1.}}, {0.2, 
              4.4408920985006264`*^-17}}, {{1, 0}, {0, 1}}, {{1, 0}, {0, 1}}],
             TrackedSymbols :> {DynamicChart`click$21861$21979}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21865$21979, 
                FEPrivate`Not[DynamicChart`click$21865$21979]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$21865$21979, {{{1., 0}, {
               0, 1.}}, {-0.09999999999999996, -0.17320508075688776`}}, {{1, 
             0}, {0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$21865$21979}]]}, {}}, {}}},
      DynamicModuleValues:>{}], {}, {{{}, {}, {}, {}}, {}}},
    ContentSelectable->False,
    PlotRange->{{-1.2, 1.2}, {-1.2, 1.2}},
    PlotRangePadding->Scaled[0.02]], ",", 
   GraphicsBox[{{{}, {}}, {}, 
     DynamicModuleBox[{DynamicChart`click$21896$21980 = False, 
      DynamicChart`click$21900$21980 = False, DynamicChart`click$21904$21980 =
       False, DynamicChart`click$21908$21980 = False}, {
       {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {
         {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
          {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
           EdgeForm[GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {1.5707963267948966`, 
                   3.141592653589793}]},
                 
                 ImageSizeCache->{{16.585786437626904`, 
                  91.41421356237309}, {-75.41421356237309, \
-0.5857864376269113}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21896$21980, 
                 FEPrivate`Not[DynamicChart`click$21896$21980]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$21896$21980, {{{1., 0}, {
                0, 1.}}, {-0.1414213562373095, 0.14142135623730953`}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$21896$21980}]]}, 
          {RGBColor[0.7333333333333333, 1., 0.8337224383916991], EdgeForm[
           GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  DiskBox[{0, 0}, 1., {0., 1.5707963267948966`}]},
                 
                 ImageSizeCache->{{88.5857864376269, 
                  163.4142135623731}, {-75.4142135623731, \
-0.5857864376268935}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21900$21980, 
                 FEPrivate`Not[DynamicChart`click$21900$21980]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$21900$21980, {{{1., 0}, {0, 1.}}, {
               0.14142135623730953`, 0.1414213562373095}}, {{1, 0}, {0, 
              1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$21900$21980}]]}, 
          {RGBColor[1, 0.860624, 0.662562], EdgeForm[GrayLevel[0.5]], 
           GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  DiskBox[{0, 0}, 1., {-1.5707963267948966`, 0.}]},
                 
                 ImageSizeCache->{{88.5857864376269, 
                  163.4142135623731}, {-3.4142135623731065`, 
                  71.4142135623731}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21904$21980, 
                 FEPrivate`Not[DynamicChart`click$21904$21980]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$21904$21980, {{{1., 0}, {0, 1.}}, {
               0.14142135623730953`, -0.1414213562373095}}, {{1, 0}, {0, 
              1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$21904$21980}]]}, 
          {RGBColor[1, 0.696086, 0.721935], EdgeForm[GrayLevel[0.5]], 
           GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 
                   1., {-3.141592653589793, -1.5707963267948966`}]},
                 
                 ImageSizeCache->{{16.585786437626904`, 
                  91.41421356237309}, {-3.4142135623730923`, 
                  71.41421356237309}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21908$21980, 
                 FEPrivate`Not[DynamicChart`click$21908$21980]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$21908$21980, {{{1., 0}, {
                0, 1.}}, {-0.1414213562373095, -0.14142135623730953`}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {
              DynamicChart`click$21908$21980}]]}}, {}}, {}}, {{{
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21896$21980, 
                FEPrivate`Not[DynamicChart`click$21896$21980]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$21896$21980, {{{1., 0}, {
               0, 1.}}, {-0.1414213562373095, 0.14142135623730953`}}, {{1, 
             0}, {0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$21896$21980}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21900$21980, 
                FEPrivate`Not[DynamicChart`click$21900$21980]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$21900$21980, {{{1., 0}, {0, 1.}}, {
              0.14142135623730953`, 0.1414213562373095}}, {{1, 0}, {0, 1}}, {{
             1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$21900$21980}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21904$21980, 
                FEPrivate`Not[DynamicChart`click$21904$21980]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$21904$21980, {{{1., 0}, {0, 1.}}, {
              0.14142135623730953`, -0.1414213562373095}}, {{1, 0}, {0, 
             1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$21904$21980}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21908$21980, 
                FEPrivate`Not[DynamicChart`click$21908$21980]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$21908$21980, {{{1., 0}, {
               0, 1.}}, {-0.1414213562373095, -0.14142135623730953`}}, {{1, 
             0}, {0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$21908$21980}]]}, {}}, {}}},
      DynamicModuleValues:>{}], {}, {{{}, {}, {}, {}}, {}}},
    ContentSelectable->False,
    PlotRange->{{-1.2, 1.2}, {-1.2, 1.2}},
    PlotRangePadding->Scaled[0.02]], ",", 
   GraphicsBox[{{{}, {}}, {}, 
     DynamicModuleBox[{DynamicChart`click$21941$21981 = False, 
      DynamicChart`click$21945$21981 = False, DynamicChart`click$21949$21981 =
       False, DynamicChart`click$21953$21981 = False, 
      DynamicChart`click$21957$21981 = False}, {
       {RGBColor[0.5, 0.5, 1.], EdgeForm[GrayLevel[0.5]], {
         {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
          {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
           EdgeForm[GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {1.8849555921538759`, 
                   3.141592653589793}]},
                 
                 ImageSizeCache->{{16.585786437626904`, 
                  91.41421356237309}, {-71.89028273562415, \
-0.5857864376269113}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21941$21981, 
                 FEPrivate`Not[DynamicChart`click$21941$21981]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$21941$21981, {{{1., 0}, {
                0, 1.}}, {-0.16180339887498948`, 0.11755705045849466`}}, {{1, 
              0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$21941$21981}]]}, 
          {RGBColor[0.7333333333333333, 1., 0.8337224383916991], EdgeForm[
           GrayLevel[0.5]], GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {0.6283185307179586, 
                   1.8849555921538759`}]},
                 
                 ImageSizeCache->{{66.33656284263068, 
                  149.6634371573693}, {-75.4142135623731, \
-0.5857864376268935}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21945$21981, 
                 FEPrivate`Not[DynamicChart`click$21945$21981]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$21945$21981, {{{1., 0}, {0, 1.}}, {
               0.06180339887498949, 0.1902113032590307}}, {{1, 0}, {0, 1}}, {{
              1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$21945$21981}]]}, 
          {RGBColor[1, 0.986999, 0.742123], EdgeForm[GrayLevel[0.5]], 
           GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 1., {-0.6283185307179591, 
                   0.6283185307179586}]},
                 
                 ImageSizeCache->{{88.5857864376269, 
                  163.4142135623731}, {-45.73475172743118, 
                  41.734751727431195`}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21949$21981, 
                 FEPrivate`Not[DynamicChart`click$21949$21981]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$21949$21981, {{{1., 0}, {0, 1.}}, {
               0.2, -4.4408920985006264`*^-17}}, {{1, 0}, {0, 1}}, {{1, 0}, {
              0, 1}}], TrackedSymbols :> {DynamicChart`click$21949$21981}]]}, 
          {RGBColor[1, 0.860624, 0.662562], EdgeForm[GrayLevel[0.5]], 
           GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  DiskBox[{0, 0}, 
                   1., {-1.8849555921538759`, -0.6283185307179591}]},
                 
                 ImageSizeCache->{{66.33656284263068, 
                  149.6634371573693}, {-3.4142135623731065`, 
                  71.4142135623731}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21953$21981, 
                 FEPrivate`Not[DynamicChart`click$21953$21981]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$21953$21981, {{{1., 0}, {0, 1.}}, {
               0.06180339887498946, -0.19021130325903074`}}, {{1, 0}, {0, 
              1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {DynamicChart`click$21953$21981}]]}, 
          {RGBColor[1, 0.696086, 0.721935], EdgeForm[GrayLevel[0.5]], 
           GeometricTransformationBox[
            TagBox[
             TagBox[
              TooltipBox[
               TagBox[
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[2.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  DiskBox[{0, 0}, 
                   1., {-3.141592653589793, -1.8849555921538759`}]},
                 
                 ImageSizeCache->{{16.585786437626904`, 
                  91.41421356237309}, {-3.4142135623730923`, 
                  67.89028273562415}}],
                StatusArea[#, 1]& ,
                TagBoxNote->"1"],
               StyleBox["1", {
                 GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
              Annotation[#, 
               Style[1, {
                 GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
             
             EventHandlerTag[{
              "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21957$21981, 
                 FEPrivate`Not[DynamicChart`click$21957$21981]], 
               PassEventsDown -> True, PassEventsDown -> Automatic, 
               PassEventsUp -> True}]], Dynamic[
            If[DynamicChart`click$21957$21981, {{{1., 0}, {
                0, 1.}}, {-0.16180339887498948`, -0.11755705045849466`}}, {{1,
               0}, {0, 1}}, {{1, 0}, {0, 1}}], 
             TrackedSymbols :> {
              DynamicChart`click$21957$21981}]]}}, {}}, {}}, {{{
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21941$21981, 
                FEPrivate`Not[DynamicChart`click$21941$21981]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$21941$21981, {{{1., 0}, {
               0, 1.}}, {-0.16180339887498948`, 0.11755705045849466`}}, {{1, 
             0}, {0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$21941$21981}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21945$21981, 
                FEPrivate`Not[DynamicChart`click$21945$21981]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$21945$21981, {{{1., 0}, {0, 1.}}, {
              0.06180339887498949, 0.1902113032590307}}, {{1, 0}, {0, 1}}, {{
             1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$21945$21981}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21949$21981, 
                FEPrivate`Not[DynamicChart`click$21949$21981]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$21949$21981, {{{1., 0}, {0, 1.}}, {
              0.2, -4.4408920985006264`*^-17}}, {{1, 0}, {0, 1}}, {{1, 0}, {0,
              1}}], TrackedSymbols :> {DynamicChart`click$21949$21981}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21953$21981, 
                FEPrivate`Not[DynamicChart`click$21953$21981]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[
            DynamicChart`click$21953$21981, {{{1., 0}, {0, 1.}}, {
              0.06180339887498946, -0.19021130325903074`}}, {{1, 0}, {0, 
             1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$21953$21981}]], 
          GeometricTransformationBox[
           TagBox[
            TagBox[
             TooltipBox[
              TagBox[{{}, {}},
               StatusArea[#, 1]& ,
               TagBoxNote->"1"],
              StyleBox["1", {
                GrayLevel[0], "GraphicsLabel"}, StripOnInput -> False]],
             Annotation[#, 
              Style[1, {
                GrayLevel[0], "GraphicsLabel"}], "Tooltip"]& ],
            
            EventHandlerTag[{
             "MouseClicked" :> FEPrivate`Set[DynamicChart`click$21957$21981, 
                FEPrivate`Not[DynamicChart`click$21957$21981]], 
              PassEventsDown -> True, PassEventsDown -> Automatic, 
              PassEventsUp -> True}]], Dynamic[
           If[DynamicChart`click$21957$21981, {{{1., 0}, {
               0, 1.}}, {-0.16180339887498948`, -0.11755705045849466`}}, {{1, 
             0}, {0, 1}}, {{1, 0}, {0, 1}}], 
            TrackedSymbols :> {DynamicChart`click$21957$21981}]]}, {}}, {}}},
      DynamicModuleValues:>{}], {}, {{{}, {}, {}, {}}, {}}},
    ContentSelectable->False,
    PlotRange->{{-1.2, 1.2}, {-1.2, 1.2}},
    PlotRangePadding->Scaled[0.02]]}], "}"}]], "Output",
 CellChangeTimes->{{3.699955753572499*^9, 3.6999557591143265`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"2", "^", "expt"}], ",", 
   RowBox[{"{", 
    RowBox[{"expt", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.69995580133514*^9, 3.69995580133514*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2", ",", "4", ",", "8", ",", "16", ",", "32", ",", "64", ",", "128", ",", 
   "256", ",", "512", ",", "1024"}], "}"}]], "Output",
 CellChangeTimes->{3.699955802305682*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"x", "+", "1"}], ",", 
     RowBox[{"x", "^", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999558226565633`*^9, 3.6999558226585436`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6", ",", "25"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.699955832598804*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999558576242695`*^9, 3.6999558576242695`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"f", "[", "1", "]"}], ",", 
   RowBox[{"f", "[", "2", "]"}], ",", 
   RowBox[{"f", "[", "3", "]"}], ",", 
   RowBox[{"f", "[", "4", "]"}], ",", 
   RowBox[{"f", "[", "5", "]"}], ",", 
   RowBox[{"f", "[", "6", "]"}], ",", 
   RowBox[{"f", "[", "7", "]"}], ",", 
   RowBox[{"f", "[", "8", "]"}], ",", 
   RowBox[{"f", "[", "9", "]"}], ",", 
   RowBox[{"f", "[", "10", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6999558589192867`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "4", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.699955876151556*^9, 3.699955876151556*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"f", "[", "4", "]"}], ",", 
   RowBox[{"f", "[", "5", "]"}], ",", 
   RowBox[{"f", "[", "6", "]"}], ",", 
   RowBox[{"f", "[", "7", "]"}], ",", 
   RowBox[{"f", "[", "8", "]"}], ",", 
   RowBox[{"f", "[", "9", "]"}], ",", 
   RowBox[{"f", "[", "10", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6999558771221347`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "4", ",", "10", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999558888426666`*^9, 3.6999558888426666`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"f", "[", "4", "]"}], ",", 
   RowBox[{"f", "[", "6", "]"}], ",", 
   RowBox[{"f", "[", "8", "]"}], ",", 
   RowBox[{"f", "[", "10", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.699955889702099*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Range", "[", 
  RowBox[{"4", ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.699955900705408*^9, 3.699955900707426*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.6999559015582657`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Range", "[", 
  RowBox[{"4", ",", "10", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.69995590925064*^9, 3.69995590925064*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4", ",", "6", ",", "8", ",", "10"}], "}"}]], "Output",
 CellChangeTimes->{3.699955910221535*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Range", "[", 
  RowBox[{"0", ",", "1", ",", "0.1"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999559217134137`*^9, 3.6999559217134137`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.`", ",", "0.1`", ",", "0.2`", ",", "0.30000000000000004`", ",", "0.4`", 
   ",", "0.5`", ",", "0.6000000000000001`", ",", "0.7000000000000001`", ",", 
   "0.8`", ",", "0.9`", ",", "1.`"}], "}"}]], "Output",
 CellChangeTimes->{3.69995592271342*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"x", "-", 
     RowBox[{"x", "^", "2"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "1", ",", ".02"}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.699955940032938*^9, 3.6999559805722227`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAwBmIQDQEf7BlQgUPeYsY9rEJToOIcDklGoQZaKxdD+QIO
/xX/fit9sAbKF3HwCPgjUXx9E5Qv4cB1fXGBLdd2KF/GwU21lGkWx24oX8Hh
j1XBuY5L+6B8JQfRHq9XLCYHoXwVh6x7hV19Tw5B+WoO1SLr3B9WHYHyNRw8
9UAuOArlazlc0U6VfBRxHMrXcZDhfaA7YcEJKF/PQeFSfjz7uZNQvoHDwyqQ
gaegfEOHBPZzkoG3TkP5Rg6zyucsUt55Bso3dph0ut5jf+1ZKN/EwZ25gltF
4xyUb+qwQ671deAOGN/M4bns8hceeuehfHOHSwz3mDi7YHwLh6rjmlaTTsP4
lg5g736C8a0cIPQFKN8aTd4GTb8tmvl2Ds9Q7LdHc5+Dgxuy+xsc0PzniOr/
BkeHOJTwcXJ4gBx+DU5o4euMGv4Nzmjx4+LggRx/DS4OFSjx6+qQgRz/Da4O
Eijpw82BwRop/TS4OXigpC93Bw7k9NfgjpY+PRw+IKffBg+HBJT07enQgJz+
Gzyh8cHAAACX7tbh
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 51.}, {0, 0.25}},
  PlotRangeClipping->True,
  PlotRangePadding->{{1.02, 1.02}, {0.005, 0.005}}]], "Output",
 CellChangeTimes->{{3.6999559509166613`*^9, 3.6999559811016626`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Range", "[", 
    RowBox[{"0", ",", "1", ",", ".02"}], "]"}], "-", 
   RowBox[{
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", "1", ",", ".02"}], "]"}], "^", "2"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999559938481045`*^9, 3.6999559938511066`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAwBmIQDQEf7BlQgUPeYsY9rEJToOIcDklGoQZaKxdD+QIO
/xX/fit9sAbKF3HwCPgjUXx9E5Qv4cB1fXGBLdd2KF/GwU21lGkWx24oX8Hh
j1XBuY5L+6B8JQfRHq9XLCYHoXwVh6x7hV19Tw5B+WoO1SLr3B9WHYHyNRw8
9UAuOArlazlc0U6VfBRxHMrXcZDhfaA7YcEJKF/PQeFSfjz7uZNQvoHDwyqQ
gaegfEOHBPZzkoG3TkP5Rg6zyucsUt55Bso3dph0ut5jf+1ZKN/EwZ25gltF
4xyUb+qwQ671deAOGN/M4bns8hceeuehfHOHSwz3mDi7YHwLh6rjmlaTTsP4
lg5g736C8a0cIPQFKN8aTd4GTb8tmvl2Ds9Q7LdHc5+Dgxuy+xsc0PzniOr/
BkeHOJTwcXJ4gBx+DU5o4euMGv4Nzmjx4+LggRx/DS4OFSjx6+qQgRz/Da4O
Eijpw82BwRop/TS4OXigpC93Bw7k9NfgjpY+PRw+IKffBg+HBJT07enQgJz+
Gzyh8cHAAACX7tbh
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 51.}, {0, 0.25}},
  PlotRangeClipping->True,
  PlotRangePadding->{{1.02, 1.02}, {0.005, 0.005}}]], "Output",
 CellChangeTimes->{3.699955995100895*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"RandomInteger", "[", "10", "]"}], ",", 
   RowBox[{"{", "20", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999560410012255`*^9, 3.699956046822961*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "3", ",", "8", ",", "7", ",", "0", ",", "4", ",", "5", ",", "3", ",", "4", 
   ",", "10", ",", "7", ",", "6", ",", "7", ",", "4", ",", "0", ",", "1", ",",
    "5", ",", "6", ",", "3", ",", "7", ",", "8"}], "}"}]], "Output",
 CellChangeTimes->{{3.699956042047222*^9, 3.699956047270399*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomInteger", "[", 
  RowBox[{"10", ",", "20"}], "]"}]], "Input",
 CellChangeTimes->{{3.699956072698907*^9, 3.6999560727009096`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "7", ",", "9", ",", "2", ",", "6", ",", "9", ",", "7", ",", "6", ",", "2", 
   ",", "7", ",", "6", ",", "9", ",", "0", ",", "4", ",", "10", ",", "10", 
   ",", "0", ",", "3", ",", "7", ",", "6", ",", "7"}], "}"}]], "Output",
 CellChangeTimes->{3.699956074739745*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Red"], "Input",
 CellChangeTimes->{{3.6999561244160976`*^9, 3.6999561244160976`*^9}}],

Cell[BoxData[
 RowBox[{"RGBColor", "[", 
  RowBox[{"1", ",", "0", ",", "0"}], "]"}]], "Output",
 CellChangeTimes->{3.699956125353691*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "Red", ",", "Green", ",", "Blue", ",", "Purple", ",", "Orange", ",", 
   "Black"}], "}"}]], "Input",
 CellChangeTimes->{{3.699956134340824*^9, 3.699956134340824*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.5`", ",", "0", ",", "0.5`"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], ",", 
   RowBox[{"GrayLevel", "[", "0", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6999561355000935`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ColorNegate", "[", "Yellow", "]"}]], "Input",
 CellChangeTimes->{{3.699956153855095*^9, 3.699956153855095*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ColorNegate", "::", "imginv"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\:5e94\:8be5\:662f\:4e00\:4e2a\:56fe\:50cf\:6216\:8005\
\:56fe\:5f62\:ff0c\:800c\:4e0d\:662f \[NoBreak]\\!\\(RGBColor[\\(\\(1, 1, \
0\\)\\)]\\)\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/ColorNegate\\\", ButtonNote -> \
\\\"ColorNegate::imginv\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.699956154915646*^9}],

Cell[BoxData[
 RowBox[{"ColorNegate", "[", 
  RowBox[{"RGBColor", "[", 
   RowBox[{"1", ",", "1", ",", "0"}], "]"}], "]"}]], "Output",
 CellChangeTimes->{3.699956154915646*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "ColorNegate"}]], "Input",
 CellChangeTimes->{{3.699956216342827*^9, 3.6999562192359056`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"ColorNegate\\\", \\\"[\\\", \
StyleBox[\\\"image\\\", \\\"TI\\\"], \\\"]\\\"}]\\) \:7ed9\:51fa \
\\!\\(\\*StyleBox[\\\"image\\\", \\\"TI\\\"]\\) \
\:7684\:8d1f\:7247\:ff0c\:53d6\:6240\:6709\:989c\:8272\:7684\:4e92\:8865\:8272\
. \"\>", "MSG"], "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/ColorNegate"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.6999562203785505`*^9},
 CellTags->"Info3699985020-9284264"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ColorNegate", "[", 
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJy03AdU0+m2KPCjqChVqvTeeygpBEgP6YVAIKGG3nuvUqUjCoJK70V6R3qz
t8HeERQRxTbn3HPvXeu9lyCo48ycmTlnvb1WMhAza/HL3t/+9vdPVlQ9w+w8
9/7tb38b4N4+cG+xianpmTl5hcXHT5RVVjW09wxPzi1dun7r9r2Hj58+ffrs
+fOVr/FiN1ZXV9e4sboTa9/FS2682o11brx+/Zr3H96vL3di+1nf/f7lma+3
Y+O7ePNDvP4htp+xubn59ltwf+M9xv2Be7f5y3/j/f42K7ewpLi0rKLyTFVN
Y0tnz9D5uQuXrt26fff+wydcLtf7Lb65vyD/fe8X8Hfe7aeu/wD+0bvxQ7z5
wt38kcvzvvktL/dWcuLU6bM19U3NLW0dnd39w+PTS5ev3Vy+e+/BoyfPnv2e
98U28696f3zet593weu/AP8J77bo3U5s7nB51Dcbb37l5ca7M1V1jU0tHee6
evr6B4bHJmcWLl3lcu8/4Jbzs2e/FH9f16u/EX/Wu/3MX3h/G/zH3i+g77xf
nsZ9/M3Gdup/5W1q7Th3rqd/cGh4dHx8cm7xwuVrN5bv3H/48NGTp8+f/yje
df82+M97v4B/qIlflfSP3h9j1/NL78a2d+O3vNzndHb3cdM6MTU9M7cwPX/h
yrXrN3+6fffBo0ePn/Ccz76P/8/er8//9707RfAvvIPcvE7NzC9duLC0ePnK
1es3bi0v3+NVM7db8WLH+Q3Mreftu1906h0H90/nNaGVD88fb7xaW93YWH35
7s3axtrLjTcbXN2r7c68tvr66dPV58/XXrz8rmF9o37zvNv8tPH8zftPm59e
P9v4tLnG/evXt96vfNhdn7vOXfO/eEm+gkfHJ6bmFpYuXb586dI1rvan23fu
Pnjw8BHP+2TH+4sE/wnvxvO1f6zf/fzwwbuP66/WV1c237x+/Ort1squd2Vl
bfXZ6vrqH3pfvt768O7V65V3W//1/s3qh9XND+/X3r99zZVu7zfvvgue5ve8
mzvB805y6/jCRW4Zc+PWT8vcfegBr5gfP37Cix/Af9L78vX9Jx/uvrr7eOXB
bS52Y+3V+xdvX26ufvVubK49X3u58kfe12/fbLzdePPp9c+vVl78zDVubfxj
5f3nl5vvtri/fONubfG8O735u772o5cH5movbZfxrZ9u3b595979h48ePfkW
2+Cv6j/pffFu6/mz2vS0kOCE6rlrd9bfrGy++vjk5fpX7/rLldXVlT/M76t/
vF15xUW+ebX58fODu+ufPj79x5v33ERuveeCueideL/F83/l/q6Xty9zG/LV
a9du3Pxpefn2nTvcbZfrfcqT7qSYt4afPNkB/0nv2yf/mI6j27ki4dZYVlTT
/c219eeba29e7XqfrTx+ur62svlH3refVl9/ePfu8dbGy6GGpBOdN96sv996
//Ljuy/e93/ZywVzs8tdtjd565bL5XkfPvqiffxFzPU+/gJ+/me965tLzoZ+
OYVe8XHeLh4+gd233m69er3+tZ6frK883Xj57A+9mxsv/v5u5Z8/r/WmO3gz
Q1LPXPnHm4336+9/zO8f1fO3xzffXuSm9yaXu8zNLZd7n+flxfdg3n/+ivfl
qzScY0XtifKWqvSExCC2f9nU1suNx1/refTRkxuPXjx7+Ufe12/Wf37x7B8/
nXLGZbQez2oqrXi3ucHrTVzh2++8P/ar3fn6R+9r7h7F24NubTeqe/fvcbm8
en64bf7e+/gvef+3ERCTmlnfWNXT11RZcDSNzQy8/vLD/Xe73tSxC8MXnq6s
/ZF3493q5qtPTwOgmfVDdePnes+F3H3/YfPD1o/96sf96F97r1y5wRsx7nG1
XO6DhzsJfrSb5q+Ni7s/PeNhn/3o3f2zuS1o/fnax2c/M6JDUwtqM0vrR/t6
6rLOBkQ4Rl589eTV+pO7D+4tb3ToZlThS0ZePHi+fvve9Uerr55vrF94fnvl
9ZuXj9+85lb+h9Wtlz+/Xl19+fbR5qvLKJeUqtHzw0P9nfWVVX//+Hb97+9+
K95ufh2vvp2fdkv6S2xwS+CX3i/gf+F9/q+86883VldfP/y/tVYFaVHeVacy
iwanq2v7yhMzc118p17cunNteGmgv9JGHIkXRgY2Dj3tKxzsvtYx//DOcHtl
9Pz6rQcbWy9Wnn9cebPyT+6Ld2P59fPnNZjMuOzO2ZG+8ZHW5vL4y39/9+nt
f+i9fP3mLe6Use3lgXkp3o4fvdvH4X/hfftk69mbFy/WsewEx7DkwoKiY/UX
26sma6szYjLZuOODF05RPbCeFDFxFXURORUordwBHhJZxE46m0+jm0nn9RWd
u3v18uMnL7eev1tf2ewanVkdLwbneVcNzMwN93RV5zSV+9b99+Y/Xv0nXu5g
dZk3RPK8X1O8Y/6V9+sM/XvezWdbj/5ZDC6KZjmXZBY0lOYMXGquHahPTU1L
ZRr7n2FK6EkZmykoy4rLCAlJGZoe0TCE2OiAIGAFJWUpBM7QLjW44NqT+5/u
bd3dWoyvKprKNgouLWqeGx8d7zlbdrrmdHLxzxvv3vyR91dHxu+8F796efFF
vI3+De/OHvyrfvW17ay9XH2zuuyZVhCe5lVeXdRek398fvZ018nuuPj6TIqy
D0jTSFEFoKygJKIgpiClp6ksL60gq6wopah5SEf7sKaoiqEiOPlEWXv/5Q83
vbwivUPkw0prW7umx8eHG0prz9efOZ3z4uPa5//Ee4Gb4Gtc7+0v4C9Z/tKo
f8v79F95V96+ePVyMyOrNDXUL76srbCurbvgzKW+0qbGtsyMMg4QY07DWZtj
dbRhKipalhoWbKSwpJCcorKSPlYZpSNFklOXVRRTN7BEUOrX/OWheJwKoLzl
XPX5yeG26pq23v5zZ+szl/735T/+Ey/vpLB9BuR6eQMHD8y7+7Iz/dL7fHuy
/PV+tOt9sbn2av0+pzk8PQXr4habkXhysC6jtr+8oL6rKjIuhwLU9z+a4eMJ
QwcAFKBuxMAYuprEIQVFQ30sixYHsGWrWKmCxI8o6x4Rikg9LCipqeYY1V53
omOmrvL46f7FyY7e5objXf/z9sMfeb+bO37lXbx4+co37xfwne3B43e9L37P
y+3Qa1tjsfWVkX62EHM42TagrC8n4OxIbmBBX1VqZChClpp/KjLQlZRFs/CM
JXoH0OylDytoW1PcIGB/pQgGLtzCSlgLbK6hApbay39EEJeR2V3RMdZyoqzp
/PxIW/25vtam2o8f/3D9/isv9+R7keddvr28vLyD3q1nbkVvj1a/16++P69v
1/O7Z+urTRV1+SFhOKC+ni7APLqpIYN6cjSClt1VmZAZoKHrWwLDhhLifKAc
MghnZmyiIC5nqaahLa9qxO+mQ/YJMFMA23mbQ9QF+QUOSkQmN9WcHm1pru2d
nhkfGeodG65ubvzn+i/myN17Xrz5nfj+yD9/4eKlbe/y8pcTw507t+/+m961
F2/W3uecaTyV5Q01hygpWmpga2sr8YjUpmjTU9NZJccd9UGBqhYsSzuiCdJA
UUNYTFpERFBNXEhgz2Ghg7riRg4cJokZ6MOwUjvIv1cDn32s/URFY3dPRfP5
1tb801Pnz9aemnz7afP3vN/OBb/vXfhSz7d+4gUPzPPevbfbof+Sl9uwVj8k
19dm5LKtYDQ9EwLOKHyiJsnCMrnKGlFddaY61ULBUUvfVNPAQFVbTkaO79CB
PQJ7hA7u5+M/uPewkKS4qTUrwC+Q7InS3rePjxQdXdPUWtF5LLyjrreyrqNn
uCKruL5v692H3/N+d1X2F/G9d5F3+uUdkLjiW9vg27d3+tWDv5zf16uvXufW
n8o5HsnEwdW1LALwesXj1XY6BmVlBp5VbXWlZFW8rb6MqbWFNsACaHNYRYpf
Zv/+vfukTYQFBcW0ZRTUYM5utpr2OL19+2Qjk5IHho/XObudbi5rKi+6MFeV
WHi2r/rD28+/5/0xz7/tvcq7tnGDJ+Ydk27f5nl3E/zXvK/WVt9sJBeWFqXH
uaHVFMTl7TIpOhc6Y8wk8WkJZI/SjsZYsBZZX5EQaG9JdCQxlUH6skbykqIC
SBeQpqQeAmwAg2LIyqJ4pOI+YUJhdnt1TRXCt+r06aNVvd3HYxPzm8cb6t/9
19vf827txA/XYH8xfy5d3vbyUnzzxg74znaC7/9l78aDd69+9g0pzvBlE6zk
NMTlVfLHtDyX+imGCjoNdkDX4+1n2SpgbT0ghwBA0KBwY2s9KV0NS9IRR46T
haoJFoHyxwCRUpJUcwlBvYjK6sbcKFtOXG5QXFoY81R6VMTxxuqiuv/5eeOP
vL/Zv3e93Hq+cf3aNd6h/zrvMgfPe+dLgv/y+n2y9eRzolt6RqwdwkJRUUJO
ADubrVo0lmNnJpXojbTxaGqOsdVUV5cyUZOR0VeQ1dGS5JeSpuXomAHBBqLS
Ono2bBM1G2NDqp6aPLOosiGHaUUiEizcDI2gp0aCyL4ZGdGZw/9n4/0337/t
vfrVu/zVe/+vep++fXl3vd09IrbACQsxUNaUV5JIux+jkHeOY6MMC4UbkVpr
EsNkVSUlpUVE9xwW3neIj2+/8D5cKUZMXsRon6CMhL6RoBiChsHo2ujF1Zw8
gYWRzNE0XWXNmIpH7gQi8qhXcsrb9+9+/qP1+y+93AH6ynZJX7vG0966dfvu
nXt3b9999OTRg+ePbj968Xzl6bO7T+89f/j4wf1nK4+erj59/mJt9QV3zuDe
uHvQ6vrKq1cvX689X19Zf/7wxgjcMzTXgwYy0NOXF5Y2PnOFLRZwDKAsjsNR
MHkn0pNgYkZqimLCQnyH9gvwie8XFNH0wJrzHZDgA5krH5E/eFgfbqyPU6Yk
5VREInBIOB5vQ84evVlKNEUxU2NC6z///X82d/P4/v3730zn7+X57Q/eq9y2
dePm8t1lbpO+c//+3XsrT+8/fnL//qNHNx8sP759+9mjx4/uPlpdefL8xQr3
JLyy86bm+tr62uqrtRfrz568eLLUgoSTPVysIeZqMoLK8oe1yxdpyggSREIZ
EeiWlJDuw4QxnLxAmhqQA5Ka4npiIqrK6kZgGcHDht7+smQxPhkjAWklVWmM
d3oZCmsUHIExA0aP/TSvh7NHh/th7f976/WHz++/xV/2cs8LV3a9vJ51k3tU
WuZd2nlw/87yowf3Hj34ifsCXLx55fblS7dvLN+5eff5i8fcmXJlZZV3gfXl
K+7d6/WXay/X19dX76+tzJ0k6+kBaXoW5jL8MhJiIvKM3ONYM32gtBw1PI7D
iQo+muicPZQa5FmkAgeahQL2HZKUFtNRFzjk5uZie4ymg5Q6IH5E/IiFT7yz
O4XMQZmYMOcWzuOYOH0KGm3S9X+448aH3dj1bv3J4Hkv8i5w7Hi5OzAP/NON
23dvc3P8082bl6/dvbU0PzPZNzY40dc9NnHpxsXLdx/fu//wybNnK7x3cLnO
V6vrvGtXr16vrt19fHciDq+uZU4CmepIHhRVExewsIEEs+maFEVZcvgJv5jQ
3OKagNLb7c0nJlzTWLZp6gJ7RcX4RI4ICAaBbROy49iW/AyKlJI42sqW4WOd
E46iuFRfntUCYB1CfVmY5P/78OPf37/7T7yXrnzz3rp5Y3srvnzj5rUrV69e
uTQzPLE0Wn28uDA9LzM/Nbn0TPdId+/i7RtXrvx078GTldVXL1fXXq+vvni2
tvZkdf3J8+WrC/0u5vKqUAzDTEZSUkj/oLSauqMDHg/E6pjS8wdP1Z6oTa84
e2axtbdm7Gw73caTT0lcXlTgAP9hJTdpKAHHykHTBrO1UjVYWJwbI6i9rzwt
ebRSXZ1OJrm5swte/u/bTy8/f/xPvJd5sF3vDV5NX7/O9V5ZmJ2eGGgsO9tU
6E2xdyAyCDQsxt41Oj3lWOvM3NjI/M17j1cer758/py7fF88fbV2f+XNk+dX
pgcanABye5WNHAyFJRXkpMXlhcTsMhggV7h9dGjt0kjH/MTJ9HN9w+eGGlo7
K1UULfdjUdYyWCsZU78QESkZKSNnTtbTwtzUmGZ2Trz97NTF4YbI+EBnGhZm
4QUKX/nnq/96u/lr7/sfYtf34+M8L5f7zXv98sWLFxbmxqdnx7oaz5TlRrr7
Rbla6ptaGFvoGWvr6BrCKUT7iNxT+XnVw0s379189OzB3cfPnz2+9/zRpTsv
Hyx31B5PcMco7xU1xRuIS8lJyOvz7ZXWSHBj1Rbnlx0/OzLeduna+ZLaie7x
5qNxkY7SBxXQ8QFoCY8UK8q5UxRzhKKkAJQ0dOxUZmtLQTO7aXlperzXxdWT
pUVCkKy1I/977fPbt//8sPUD7S95r37nvXZpfur86EDP2frGM/mJQZ4cnKkl
EW6op2+iD9DQVdXU0jS1BBjbEN3pjNDSjtHZxZ/u37q2/ODBjUu3Lg/N378+
lhLjbevCVNHXZhKAKjJH5BSEDwntFaIcL68dL60cPlU7NtI9d22sdbhhMM7K
XEtJXNSyNhWupqiaBIW0VdeWhaDUtZRVIhP92geq6krTXt28OjuXj2otg9Jh
GLyHbfDTj6v/+4+tt5++8/xl76WF+aXFBe5UefnC0uzMeE9bfXleSHhYgJsd
1traFAwFmIIMNfUM9bS09Y0Ndc1swKbmQENTFIkeeaKs5+Llyf7Zu0vTPRMj
VZ1jldlsh0A7rAHEPyeYANJT2y8kIbTngCgfoXuotqSutKOnrLS3Znr41ljt
SS+stJC0hBqpvDZLZr+ysgGan15cWncqP80VKwbVcmqZqetufHhz7tJCXXzd
YBE8nWSICwsJWN16//bDh61P2zvOtot796WweT9++NH3Nbaf82WdL82Mj/YP
jc/MTY8N9Z6rL82K82cjEAgkCmEFhOgZQywsLPSNTIEWZuZgKxsIgkiwxVib
mFhag7FOjqX1jQ31PdPdHU3tp+KzTiSQrDydMShj/+PH2aa6Kopi/IJ79xwW
46MMDfVmeAafGz/j3JBZPDA92+lrKse/V0ynMqu86qg0n8wRDVU+SX0yJi+7
ti3EeL+JbmFn49TcjYuzVwvr07passpnnMzgrrFJjzfevf348e273dz9O97B
rvrTJSfP1NRWnz6Vn50Q5MEkwCwARqZgKyjYXNcECgKYmYEsYdxXAIsn4SgO
jiyaNRRkgwCZW0LdgqLTUrPKiwpK8oOp9u6OMHK4Ewrm2txQTFDXkBERERIW
kVNV1s6f7OtJZxByLnQFp2flH++e6rGW5J4CtXxH+1ozaZJ8fBrqwgf5+NTE
ETYJ9c0sPSERE5/OuenR2XnH/KG8osaG+b5mQ0O3oqBLzzY2P356t7nr/He8
hRmxoZ7+IaGh4RER/hxHMg6DsDIx0DcyswCCTAzNLU20AUg0Gosn4PAkGtXe
0cmZBgGbgmAQE1OIBdrey8nOPzQkMsAOBoYR0F5+7rYWBS2nMlDyimJ7+YXF
EUmRDKhvXXdbZpwTs7WnMrq8N/P0UIWmkICQvstgRVOFu7qk0F5NrX2iogcE
Dohpa2T4O/oJGPMhmppbW8sjfGrOBGeVLQ0t1R4w5cSd7Vve2Hz/6Yvrw7/p
ZVGwaASJyWK7ubtzmHgYxMIMoK6pbwYEWaGBpiZmpsYQEsueTqfg0Bgi2d6B
bocHmhoZgcAmZggzMJKOARPtWU52FBzE2p7mGx5FtSkvzIrFyYkJ7hUUOUjt
GzjJArsUVCRnpbKj845ln52oP3WWI8yvbpRWsnDc35FmIH2YX5K8TxYswLdP
G40iqOl5c4Di5jSfM11xYafL2BxKb9/gLScs0j2uo+4Gdybcev/pP8mvhaGh
iY2dT3BISICXJxMHAxnr6appAaDWUDgBhzAH2pKpjkEejg5UtLUVHI4jYlBw
cyNDPYAlBEanIiG2GCssmkFnODuTab5JkXkRSFJqbrAXw1hW7ICQmia7paMp
090M5RETX5Ce5BdX1NLX0Ouht1/ZLWSqLJOjA2RjZMUP8aXt0/KROCTiFN4q
DiVZxFKYhgcgqfVnRhsIFK2AmqYL9cG5jrH5mTU/fX6/wXtz8D/oV4aGpmCi
Z3xKQnQQh0WzRVoBdLU1NAxAYFMzSzsmEcfmuLj5sSgknDUIDDGHImHW1mAD
E119iDXKwZcKxWCRJAzbPSA0wCcoujQzhg7AeWa7E6gILfnDUrbJZ/taqzIS
GOaG7sFZFVXJGZWdPXlVIAVFdklcBcdKTwQTRJeROciXISMXY7Ff0vVEt0Za
saxNzCmiHs49sW+uFH3ENCOrc6CsJqaoOK6y/s7P7za23r3ZvmKxu+P8Ra85
FIWn+8bHhvi62FFskUgrYw0VQ11DsBXQHEzy5Di6urHcnfAwOAxsDrICgFBo
JBqJtLUCIjG2TkGOKCwSRqN6RR5NjohNTco76YBFU3yy/CxhUDVFJUO/yen+
gdac4/lBmlCvnLKqtuT+6v5jTKgh4lgJGqSjbiZKj2NLKEmIR0NFkvz3yRkG
HbO5HUdCYDKdgz1dAuoXnQ3pNszc0fTk5sGpksSGxjsfN7nj1ZvdazT/jhfj
6BsSGRwd50mlOeKQluYmhvp6BgAzCAxkCkHYOdsTiWQiAm0NtjTTNwRAYUQn
KtaOzHCk4/FUpjMdBoLCKT5Jyak5RVkJiQVBKDDewdnXBwEEyKuAoAVLfSP9
7ZUp7TkcPWsv58jqE8NNDYmScbnFmSi5IzJ+eHnFErKSgqC4F+hAfJKwyBFl
AKf3WGORsYpdaWuRb/9xJ7cEd3gxJ/jU2ETH4GTFuVtv3r57zytnHuLbnPHV
/W3O/PDhIy++/PJ+5//h3dghiWkpoYF+DrYEGh4ONDHmjhYAEPd0QkHbYokE
FBKLtobBIRYQsBnIwhJGZLEd2RxvL2caDoOhkSB6JiiXmNy0tNyCrMzcJJaJ
tg3N2Y+No7AdXZgQu6Ke8701HY1Jp7IdwXpGfhGJPU2NjnJdNccYsvvU4KnO
wMOhhmrc9WuHPZASt++g4EEp2MnexTNS8touPRmD5XWlZ/NcsJHFZSO9HSNj
U3Ptl15/4v39v/b+Erz7+G95Y3NPlB8LZtFQ1kiMtYWhgYmpib6+uTXZzZlC
wiItgVAE1Ji3M1lArDAW5lAMzd3HPSg4yM+NigAhMGaKWhjvhLSQ4KT05KgA
NNwK6+BAYzq5JVW2DDQmuTtEF53NPFVXmBfrCTcxLgtwPNvb7kG7HGAreUAY
4BaOg4rbKsgf2MePp+5LSROVk9h3QM57evmYOvGInE9ld1/h9FQh1LE2Irbk
RNvcaP/wualHb1+v8z658VveX2R4+yMs3+zfvFllpyvz/SkoqCXMxhxgZAww
BRhpAKyJLHtbNAJmBYXBQfp6Joa6RhZwuo0lAoN3C/Vxd3XjuFKtjCFYiLoR
2TMw0Y8TFJcSSAAhbbEoOC04LDAoJO7M2ERTlLNTZKhfcArGUF3NxbGjxu5o
96mjYRGqfHxyOExGPI1uBVIT4DtsaM/cFxKtL6YsJHAIXncrMS5NUVAaOzU4
U7aYBbCleRRknRwYHr86PTOzvP76zcfPu97vz3o/LlneYzvcre+92SXFecnu
eISVlTXYAgQBmRpxOzZ336HaWlnBsCQS1sZMX9fCwsgQgHBiMpwcqJyoUCYZ
a4uxNNIG4bBQjCObmZQSH5lSlOZu58Imw+Gux4rSIv18E8/2DI6U+LtzYDA7
c1kZubgTp0ciYmuOtYfIC++RRhe69nUkRTDMjvDvUVZHEPYxHEmiCqLSB/T9
LpZ3NYDMxSQZ88Ot/QFEU1Oqp29SVUP/tbn5icWHr9++//Cjd3d/+qFFfdw9
MX7vzcxMinIloeCWIHMDE6AVFGgBsSHY2+FQ3PEZSbSjoUFG+gAY0tICiHEJ
CgzyZrv5+TsToWaGWhraABSR7OBAJrjnlOUXFKWGeQQEervYc5LP1LT09nfU
VZW3lZcE2WqBmDhJA237k0k1FcdKsrvw+/doseLn44ebg9hmZvyqe47Im8IP
Whg7GGkpAiUV9ctbBoKzR9WlJWc7e46WHTd0h8FCMmomJiZmpiYnrm28f/Mb
3ne/SPHWdr/69Gk3z997Y4Ld7dEwNNbK3ERbz5i7SlFUJ5YLDW5tZYXEYlA2
QCPuckZiUSg0zSs8MsTPg0GgUJFAEx0VNT0zOMnRiYihOeZWFBUlegfFxYd6
sp2CC5p7h0amJvtaj8d6x7FARFZFqrUVxu34Ce754nRBma7I3sCzZ+6cakxk
EaB0JaqYGACIENIR0gFBTf0s1WUY7eH2PVdPG7AWBrvPlaZGRFuG5GbmnT5V
1z+5ODz2+OXzj7/h/XVt7xbzD14OAwm0RlAYWKiFobGJKdCGyPL0cCNBrTEE
O6yVia6OLncfskFhyXR2QFhkoK830QJiZmQEMFBT07fBMtydsVi35NPFqdnB
jhEnKkpSw0Ly+gcuXRodHu9vb4y2s9GxOZ1bVRGlZJqUVV2SPzjR3e5I0hpc
OLPU0xqbE52aRom2VJGXMRICCu6HoKyKOJZG4FGKfOfAYE33jZHuk/lHvf1P
Z8VGp0Uf7RjsGDlT3D85+XDX+1vXJLfX7c6/vv96Pv7mxZoBoHCiHZnbis1A
MByV5eXt4c+0sUAx7RA62roGetwzEhyNw+HIjh4OriyGHc5cV09JQdcMYGIG
p2LRdBTM63hZRqC7c2B+3rHcyNioipGZ+cmx0e7mtkJ3H3sTTHR1YXKgkR4q
6FR/eePE1MXqvtz+uZap+tq8lvSWyuwY5KH9ewBiNof2yqBAFAd6fniNLpiS
2zp598blqcZ8gjausrW3OSz8RGldU/PpwnBw1sZr7ib8/iNva+Ku0ffv3n71
7MTu/PF9/ndfE4iBGZJiR0eDAKZmFta2dh4hYUHONDSCSLcF66gqaxhbkVhO
DnY0ugPL2ZWJBNnYmGjLK2voGIOReDQNZW4BQAQlHY3xdPZJrcxI8ncLrx4a
Gp6aGOptrmkqJtslZefkZAShwdpAmE9978jo9IXLi1Pnu+sXq8sqW1sG68pO
2avvFRBQFgEL8wkq2AihQqtqR52NtKDkoYUn1yebyQqqtsSc9pKkxOSSwpws
PyYalXyBO0FvbLx7/+5LzW7n70vVfsvv73oB+iAc3Y5gaWRoAUXakuxY7m5s
W275UjFAQwMNFR0wztGDQiQy3H19PR2YthZGutoGahpqGkCyA4VKhQGAGLek
iAB3tn9u1em05KBAv8bZxdmxjuaOmswoW1xAZUtHbSRMSlRST9+ppm1qdnLu
8dJw8kR+bnRpWlvfeFN1nha/AJ+EsIiV9D5+fo1DCk4NA0vHAoFyUkfa7zx5
2OUmqCShEtLcPdBzPNkjKMnLmYxhL22933rLTerb7X3262Wd73rzD97vA2Bm
Q6CSUBYmYFsa24XNIGLRKAQcR8Oba2nq6gOsbCl0OwrFzsXX15VBZJBtAOoK
alra2gYwB2cHjIWqmpWDM5PiGJJ2onfgVHtOQsmZyQujg+Odub4EOFY3uKa3
sbUjWklEkE9Mll7S1bUwc/5BcqI9FWbP8CnsO187dgovckiET+aQqL2xltQB
fvl9mvlTs/0tupoScrFVFy/OUAH7D2r5nJzi7r+VFS0VBVFUasLKGje5Hz9z
G/WXOv46P383YP2+F2pLZZBsTC1snf2Cg3wcsdYIvBPDjg7TUtbipp7h6Mi0
Zzm7+/h7s2gENNDEVFdGQskAikSg7TwIQHUDiqeDjYlnw9T52fGakoTc0hMV
A/3traUx7kgNKd+Spp62+hKqmKjIAVktt8JzZ6dmxvMUFV30xOWMbY71zDT0
x6tL6B/W0BYRCrd3Nj4oI3HwiHfP5eWTtvsVfUQR48s3vdSEpZRQWWONNX09
S1M1Q5Wx+ed6bz9+ubHJrentFbv1/ss89csB+ne9OpZEhgMBYmJJ8w6JCvWi
2UCwzOgAFxJQXROApru6ubh6+gUGBPj7uNqTbUA6yqpKCuomUFsiEmKFBuip
GJCcqHj/stnrS/NjLcXOaIhrcs3JvPK8ABqe4XO6pb72XF+ikvD+fbIwTGR5
S8PUpWvQg3s0yeC9e4E57TONYT5kdSqcApLijwnLtFWEAwGaRMeflibIujRF
CbnTF+e6ZRVExI4c7e8/faxxYHa4PftMTdfk5OW7T168fvelQ28n9sdx8pfe
72cuZVM0mYi2gtv5hoWGe9GsAea2zlE+djZGeiBbD18ftoNbaGJeVkqkF9XS
QFtfU15SVNYEgSPZwiGGajqmAIR3aGRe/+zizOLSWFdFGNbIlJjc0FbiBqfH
VXa1D4x0DAyGyB3cu1eFSI4va+8buX4FLK+yX8mVtEf33EJbmqV9MNg5EAuQ
O+QUmO8CJDJxZFv1M8sjUezYRKIT0jU6P1hJ4rB2XOXZDL+cpjOj7a3TjSc6
j7fM3Hr44s32Z6B5sT1IcSeM31u/33sV9CxRCASOFZmRFu3HsDLUMydx3Bhw
Ix2ALcvX141O9UjIy83JSAl3tNSUU5CVkRUXUzQlOmCA5kZqyiamthGJ6a1j
V68sXbt0frQjnWFnDaYUtNQcSyppOXeut35gYqgErconKCgHhUfkVtee6KtA
HtBSASV4AQ0brh11gQKpBLa7srKSKJB5NAACB6LSSRTM0sJJcn3HhKOMiSi2
lSYm4BpVmh5oj4uq7xxc4B5EUj3SOxaXH794ufl2e4t991e8JhZAsBGcFZKQ
HB3kikXYgCnuFJiFnpaBFcWZGy4eQSmFxUU58f4OVjoK8vKK6tq6enqmVA5O
TU5bwcwpmEWM6Z+6tHhhcWKkpSGYQiW5Uv2zy9sH+7vaWrv7py6M5eHlBQ/v
OaRlYZM/QpLGgWCe7t6ZLTH0rOp2RUU7NVfPVLyerKzOESzJG7sPpuFfmSvl
fqEu5tzUvXBRMfk9C5n7hPCZnEA7HQlK4+jAQtNwdTrdK7Nl+vJPj5++ervF
3YHfffghvjl39qOdxc372RxuAwRj2QHhgSwcAQyBoxzdbbkjszmCaM92cPYO
ikjIKs7PTw9xxJjrqKsoaxiCYUiMJZRIAukaWtl7cQILehfn50cnJnoaCkLt
ETbkkPyUyPSik/UDI93tbe2djek4Of49IuJHoE5HQ7T3iElZpZYUnWrN9B1q
gx8QQLskukVCVSWMlQ0hOJS9vJ4gvasKZJl3ef7MQtsIXeZvB2vC90g75rna
Iwykodl9SwszwxN4kCWMdaxr4faTtc13Wx8/bv2edze5O95tvQXKxghJ84yM
D2NhLE1tqCw/D7iRhrYNg+XoiGN4hkQnZRzLzY5zhhmoKcnJyKkZW8KRaIwN
AguxwLMDOBTOqYFzU2PtbbV5yUFuOAsDQ2Bxe2VpVd+54xn59e3nWmsLvGEm
En/bq2oCpiuKHzwgYpA5PdLflRu4MC3Pz+8a747GG0up29iYWtvA3eEEDb3y
gWQli7GF0zMLje7a/AdMKFKHwvM5zniAgHRJ9UTzzDWOnJKiAixr6OLdJ2sb
m++4c9aPsVu/X674bF/H/PooAGiqj6R7R0QHOeEsYQ4B4RGuUEM1Xaybu6O9
DcHJKzAiJi4xygNroCAjo6SqYwZDoxH6VmAzqLkF3ceHTfPIqW0cG2k5neRI
xlgCjQ1UhOmVbWdbBvPhmmCvY43NdVXFibYgmYNC2g44AX7+g5o6nPr+8Z5j
Gd1DmgLC5R5KatLqshYYGsIOb8tGcKhSpKYqonzx/ZLxyQKQmoiCpKoU+Xgs
wtpI7oCSiUvdg4VQNQ1pGU3nlgvXHj17+Ybn/fgvvLyR8+PW+29eE11DiKNP
RIQfiwBH2IckRPmSTY0NwAxvDpOOY3oHR0RHhXk7YQDq8rLy6joAKwzeFqNj
pKgAxVoj7YhYatDxztGxsbbKGIKFupSGzOEjirpJ53p6KjwNZZWsgk41NLXV
lZ5w1RPck3xRW0BEjF9eUBFXdK4mdnDhusde6XaoqOgBGRWsK4LtGwD3sME4
wQ3yz+APnb56fTJO3xh8RF5XVO54kPURGRFBfvkjlhNTeW4JRFUls7D20Zn7
K+vcjvUHXi730w53u29ZGEDsQuMSQ9l4GzDOIzrcDQ/SM7Eku3KcHRje0Zl5
+cdSIt1IQG0lbmvW0DUBQrnLFwrWULP1YFHJCEtycuf0RP9Ac31ZFF1fQUlY
+IiCVPTwcGc+U/uwsBY5Kvd0W1N5TSpVfm/DO46AoJiwtqGyUlB9e+bla4v2
e4GVagBJCQWZoBgHQkQUlcPQpCQYpZfsF0Sv3R8wkyWpC0ooKHo1IeTExfgP
C+1XUj3ZWLtQS7YwwCbXtI3fevZq8+3Wb3i/reMvF+7e74wkvMegULJ3WFSY
B8na3ITiE8xGGuvoW9M9PVlOHv4phRWV5aVZsW4EM3X5I7KKFlAEwtrSGg7H
wCAk/2B3RyzKp3rh4kTvUGdXb0OWk46inJGFigpzbHa8wk3vsACfIoTsk1ZY
cCyaISOz8KCboSakgI/n4LTt8iunn9wiC7jXKHiitUy1kv1CwYHeIawAHWaM
ZoE3317o5mU/jzgHcS13N9euISdFaeE9wlJCErLKzdPDLXk2RujAtLPT1x48
f7259en3vV/z/aVbbfdxGxw7IDExyouOsQIyfL3xJuqapnaBMb72LtHH8k5W
niguyIhlooxUFRQ0DG2wZLwVwMAQZIOwxvv407EAq9jepfnpiQsTIyN9tYlW
utKyZlAXbFJHdyhASWKvjDbAyBju4BkZV26xd3Dh2kKKPcaI6pWV5RpXVnjz
oR1f2LRWTqYRmuKNYpOZztHBqZgEL/1z4L18+a9rO2pJyPSW4UszM4XuEtLK
woKCBwWU3OpnHkwFQJQ0wPjM6UvLj1++2fr0+Q+9H77z2rsGpBXmRPu7okC2
noHOCG19PCEoNDwsMrXkbENNecnJk+kBeIgWdyMCAOzpZBwSam5irm9kYoKy
wwM1kP0XZ5aWLsyP9XT3tp3lIGTEtMH2KfF5GZZKooL7peTUxARlFHU4Z+us
95GuTU/PjjSWe7kGtvVkZp9pvF7Gh+onFBVDLJOYMI5LWATNlxngc+xItTGf
0trg2dHWoxU145cuLZ8DxQvLHRLlFz0gpeZWOfMRIaGmrGDs0DB++ebD1fU3
W9vp465SbqJ34sd1/D2bm938gswoDyLEmhHgZqMlq8+dIMNCgqJzzzSUna4o
zEjwd7QyVlVQN4XZ0sjcMRKgp6Wjrq6iaklCW4K8miYnL04M9HU01NeX54TR
9aSOmAS2nj0a76q9T4hvH/dke1hJw7y4s0pXWDZqeOnCcEdtRlpyXEpXc0lP
z7zRvuM+1ceMMEej5FPCQ+JRViBgUKxeiqFQxWRLZ3esP/NoanPHMXslB0V5
LZkDQpJH9CCcxTmUCUBMAnV0YOrG1Xsrrza2tn1/2usYfqy4MJqNNgVSOC62
elr6cC//8DAfF9+00vLyMxX5Cb5UKx01BXl1MxSZQbGFgYy0VI9ISkrIAhBQ
iHlIxdzVm+dHRod6OhsKYihWJjpKxl7Hq0sJujIH9guK8kso6MFZSSeK8pRV
VLkn/up0Gi08BKJrmVEy0N81gpS1S3f0QbjHumLjw5zdvelgcLw9xlfFZmCp
NtPFCKBLodIdsATfUIqKiCS/6CFROfnA5SKQubIyzLWgc2zx4vLTlxvvd5x/
0kuLyM9JZsHMzfAuLISJOtCWGRwUGcahO0Vm55WfKMhM8MMbKykoqOiaWyOI
tkhrkIm2iqigiIKOMcBI3SR94ObN+emx82P9HacTXSFqygaW7iXt/R0m+4UO
7dm/X0jTCEjyK6gujTRgBDCNtRysLKhEEw1tLVP0ye7FyXhbiC3NzsvdI0gt
ne7JDknH+Eabe3IM66bOxWnIWILt90jgkkJ90mh+vnKK+yUOHhKVThhMQenK
yMBcKocmhpduPXn55sPnz1+0f85Lj8yMc0aDIUgm0xqgqQKlOEdExEZ5M+wD
03KyM5JjQ91szZQVFNSMwFbWYBAQBDY30lGUVAChACqqCo6DD+Ynz02Pjw10
NlUkc8zVDUkBuWcrOjO0FQ7tFdxzSNWW4ezr5c8IAkLTw5DE9HbHPeoULNFQ
wtwcmD0z2xhkbxzqQY1jcHChSHf7iDhUpKdFhm3Y0lUiQ9zIh+69Z0/SRLO3
pRTYV1tSSPiwiNQRYunpcJC+NJBdcLJhbOHmF++nnfhT6zcy1hdnDTCAkAlm
OjpGRJZnVHhCBIdGcvKPTEqK9WMggKbKcjJKBhAEGmhuYYlAI2GW5pZ0poW8
Mr5kZrF1bHRhdqK/vaW+KN4DqQ+gxJVXF8cDJPbvFRLWALKCUvOiPH3Zoio4
gl382QvFfAr2ZKqehLO9qsGlczWtwSYRnsx4FvEMjeBgH8qxC3BjliiO344y
diJSfb1tZPeMXMgGCgsIIamCkntFhQXFLIbG8kmqiuYIduTJkdlrj9a43k+f
d8h/xuufEOaOhGoqgh1o1oZAlKt/cFwodzci4slOnmGBbkQLLTVNdVU1bYA1
loi0sbTGkChkBzaL7QDRNomraWvpmr++ODbU2VB9IsEdYqQBCa5o66rNhfEJ
HOQXUzMgeEQnB3qkMbSV5XWhMFTj0sE9jrEeDniWM2BPfWfDcIZoqkcO1CfU
2w3nF0H19Qh09E/QWn0kjXd2c+Rwjxdyr4chew8KCLk1KgntEeTnF4b3nK9A
i4tJqpGK61vOX7y38pq7fn/+Av74Z7zxWVE+VmBVDWaMBwKKIrj6hCRHhbCJ
ZHuWVyiLCNZVVZBXMOCNVRgiDQcHWUCRWCwnMphFtgaiYo7X9d6Yuzo+OHCu
seIoC6ggKwVO7xsbrUfJHRQ+JC2tZcqOSozk+NRGkWWlDvDpynPWXMWUicEu
/nBPLX6pkxUtzYZu0ZH6/pxApmVIhEsgPRDh6sz6ULAf5GTnyQQc2tNwB7v3
0GH1g+QK7vi8h19R1NS+o89YRV7V2i7lWN3wwvLTde4G/PPPf94bk+DPBBgY
wSOz3bDmGCff8LiEeHcm3ck3NCTQE6sjx+3F0nI6UAKFiEEirCEmuqYQUxQ5
yBYKwnvG5XdOnT8/OzvT29JUyNKTPCwpoagf09gxEKQkdoD/gJy6nvepoqOJ
Pqk4I7FDB8T3ivK131cT08LTWVQTpb/9TTulpt8eWKga6M32d+a+uoGOFB82
GxO3biQkaQwEawrtwf+v195DAqpmgnLebrKCItJSgger7rSHGZpDbX3y6xpH
567fX936/DU+feLdPn7YfR9017j9Wuz8nJ7AIQF0bTjpCWQrJJHpEZ6SEOLr
6uQRFh8XyUZyJ0RZRXUVTQCaYYc0tbJGWINgWDjOigwyNbFLr6rqmFi4uDDS
P9BZHutgKrfn8OHDsg6+9BB3qKagqICQATGvq6YwI8xDVURYQkDq0F5Fsdke
7oBtrmMs8rdDh/dGNi85IgOYzlBWBCHII4LqSqYQvOz83yjvFeBT38cv5nS/
WkicTysEq3YgOkpfSZJ/v5zayOWRSAOkb2599/D47KVbd59wZ+g/9n5Lem4E
A6anjI6IY1mYIhiuzu4hMZFenj4RyYkBTiSIlpKiqgEET2R4+LnjLVAEJpvF
8XPn2LtQCXjv/Jbm3snpuZnh1uZiL7CylLiixF4p62On0sM5FtJ8WsTAssaB
oXP1pUdd1cQ1rOEos8N8fHqtNwlC0gf3Hzx0gO8AuneEhMNEUaw8cIEcqoer
swMF52lHfyOzf5+4qiGh8vox1b38BuENGKF9Pme1pGW5LctyYm7AUc3U6VhL
39jc4tXle9yC/vCjd7eWd73f13iKGxKgrUwIcbUxguDYnmyX0MSEsIj4zMLs
EEcEQE1RSQtCcvEND/Oyw8BssI4c7+AQDxyFyXCPLamuqeuemJ6Z6GlOoiOs
TNQUpA+LGmOiK0fqUiDih0nJZ2YvL06N1qaEpOENUYl1VQn2Gof5LKsmy5yc
NaWVRKT2yo8V2zLIEa52BGRQsjHDx8WBRnBkWI/J8gn4T42NTafu51Ow9s7o
JAvv9Qwj6ItJighyRi522coc0WdmNQxOXVl+9Pzlu89//w3v9uWq31q/fniA
ui7ALYQGsUA4Oru4R2anBYWGhsdl5CQG2RirKqrowRj2nABPGhpNQOOZ7l7+
HAoUZolxyWjoba5pm7xydaymONHfk42DmGrrADxSzjSfH8gBS6oFnmobWVyc
GSyOSorOOl1/Ii/nWI4lSEpAM+Lc+HjbXNIejcOHcl2sKQ7ebtZQglcS3s7J
A4tEEl0gftpye2/+NGyrLiBpbIWmny5H8Yt4XGHImh0GwOtuzBYqSEopw0LO
DE3ffMS7Dv3h/a+977++6f+jlwHVVdJChfjZgsxhdCdOcEJyIIPtGRyVnBLu
DjNRV9M1R9s7sllUpA2axGJ7+nBPimgyFmLPiSyoa2sbXlic7q06UX36qD+L
ANVTkUAXXFqa7OKICcraJvRcuDQ/O3oqNTctJPBkW0tpcVQkUgqoKKIDqptZ
KOXT5ROxsjaHEbl7HgTuGRDA9HdEYNEoJ6yNofTBi88yAUpy+mSQKraEJrdX
bandNoDu5gQNGWjPNZSUUTIkJzaOLyy/ePPuw8df1fPutcj338WuF2umq25m
H8q0NAdT3Pyik+MDmASGX0puXqoPydJAXR+CoTm5OjPQIAsY0dnN28PBjmTt
4OaUEJdYUNXeN7c43N3bPdBUmJaT5QZQ0FS2DuucudPvfURMXJ9RNLd06dql
7pLM6iATEzMEiu0eQ5e1ARzQi+0aHr0oISispgexxtJYBKI5iRJPdQuiE8lo
NIUJh2vwZVyvBeobaZGMLP2AEsISc1EeFcdP+1EUONev5IK0VVWN0D6FncMX
Hr7c/MjbjX7b+4uLdjteBMDIkBIQTrCA4EILMjPyjkU7E6k+ydmZsa4YU001
U1t7Zw8ffy+6NZTi6cLx59ApFPTR6rKG45Xt3SND5yeHRybHu2pPlmR6guVl
dC042fVdN5ZbyeLi7idaZq/9dGn6/OTMZFsISk5KVFkPSNVQtdK0sHTrGjl/
8JCEOsTYCmcHI2EIBHc/KpHKosOAFJqrjR1QQnGoyo5gocOEqrloSoicupVT
ca6/+WS4lO/8vaOOtkAQPSC+sHHkwoPV19wE/4b3y2XY78E7XqCGHtYvngMF
k73is/PLqivSOBSmd4CfGw6gr8OdMp09OF5MJxoCTnf38vIMdLN39k1p7Ojq
7OgZGh0enb5w/erMYFd7XUksE6gqqwA4OjSysHh17CRV12vo2pWZmcVZ7lOW
5sfHncSFBMWBDvZwC7AN1f/EDG2fibgJyAKOghPwWBwUxsBbYuEosAWeQWPa
w+S0XIqjwuEIJxqII0YvmZ2v6R7oa6qiiUOHL9dmsNFEz6MVTRNXbj/l5nd7
ntzxfpk6eOSdrG59+XTH9mWd7c9dGmmZUgOj3WBo18iMwvLqiqPe9nSSW2Cg
B0ZPVc/A2tEvIDDMlYkBQmluHu6+wWx2fElj7+BAd0dX30DvlUc35+emBs+1
NZyMJujIGBkw/U/duLR85+ZYhIZxTM3U+Ym5+ZmFG5OjF650esHIZjZOzli8
syue6VNqqqUnbwIBo2yxdnYOFBiCagtFgkm25tYODlgWxUQNGeLm4IqwdLIk
ODS1Xpo9d6WpKinZdD987kaWNVhJl3GstaX7+r3nr95++vvXeuZW9na3+g0v
77rdR95D+jogWlCwI4YRllF4uqww1Z8Gh+Kc/fxcMcZ6+sYI50B/30B3mpU5
iu3r4xcU7umbfband3Cwp3tg7Pzs/ERvz/BwT09LRZqzhbK8mIqFS1bTzMXF
S4vFMGDi0PnZycn58VFuTQ9nZTsBKOkULUOIoSkDTwxmGxppagKsoGhbnIOD
KxmOJhFQCEsYFoPEU3CuDhg1C2c3MhJmpCzvHoBOvtHX1TbeFAdU0vKYWihm
wLW0wM4Z9QtXlh+/eP3+81fv33/+ebuaP++s4R3u1wTzvMYmcPtADyrBNSG/
pKwwPcaHjrJ29vN3t0OArYEIOw9/f46zPQYIIXsF+YcFRgRHZJU2d/UPDg6d
n56ZbyquaDvX2dPbnMeBKEtJHDEw58Qnt42MnR8twuogOT3jPe39nW3TVxfO
0Cyl9+uZW6JJOEtLHJkejQUbqOqYw21QSASVysQiCVQ6GYVD27EIaCLBk0HV
hzr5MhlaOI4nUUpWvbxvsvF8NuOIPMSzaagl0wMOpSfVdY5fvf3o+fr7b/2K
N0bzJovP3/Ws3Xf2v3x+eGvLBEj28HMk2fmkFBTlFp84FsayZ/kHc8g2pqbW
BPfQ8Kj4MDcqzBREcPb09PcL9Aguqu4YHJs4f/78+EhXXU17V9u50a7GVLy6
tMg+aUUkjBRX2N98Np2ufkTLwjfcyyUgIDirerC7L59hrAkEE4mmxggs3ZlB
BlmpGwDRSKSNNYlEtcXTGXQiwp4T4kawYyI8uZWMwrPdmPrmxDh7PhEHckVl
c6iVvqGMrNWJkcbwcDqBndE1/+DhyvqbrZ//6792vTvHft4i/i67258u3S5p
nlvXjOjsQaW4BCYXFJeVleZEsClEKg1lqquhC2KHp6ak5aSGOGO53dvBhcPx
9yF5nO4bGJ3knhGmxgd7R0e7u0Ymz3dXBoCUVdXk1bStCKyI44MLvSlWYoKS
8ioaMmLySmqAgLqeq2P9Jx2C4vCa1ii4u6sri2RlBLYE47BoGJxuR2U4ODBI
KLiTu4+7vYMjzYkd6EJBkgMD8CY0d1Gp2mtgIskbIm+kIiEJqZzuSPbxjM4s
ax/7aXWDuyx//jpefd5uSry+tbN+v3J3wLxEa5sgsPYYqndQfP7x6pK0KF8H
FMTGxlRTQ8sE7hWaePRoSmyYJ8ESxeT4+Pv5+rnHNPSPjU/Pzy8sTI/PTA+0
9i0uDnbluaGsrMDmOoZKaKZ9xvHe2kiY8mH+feKHBfkPCQoJi9vnNXa1haqo
icm4xOupFvrbh2Lh+nQMlEy0RaAcmBTuBk/HIclseztnNwaDQ3HxD3S3wwWk
ulrZQParLd9SlwNCTGTV+KT0aB0XJtpaSwtLGs4v3uG9X8Y9/n74lt+d6zof
dt4K3+Fuf3EdF8x7zBgEg+Csyb6BUXknio+lhLpQSXQqCWpgALAmBwVGpSWH
+ASw0ZYkn/CwsDC3kLz6zq65ucWlRZ53rO/cwOzSZF9zul9AgB1IV0tVWxmZ
Xds9XEKR5R4HRAX5BYSFD4vsl5OGYpwhomIiIpbgI8w8ehDOEQe0ZyFt6FQ8
HOnAJHi4UGg4nLuLvyuN5c5iUV1d/QO8EEz/4GysoqLy5Y49UmZWArISQnJa
1OHliebSiu6hofGpW7e5h6MP3+V39xTM4+5+Rvo77/ZrYA6xQthiKIzAgpNn
cgvTvChkBycfpImmuo4pxT80ICwiONiNYgNn+kVGh8YHRJY0dI3NLHBjbvr8
2MBsy6X5xZ+GW4tOH3X1drCxtDAztQltnu7MggjyCRzewy9w+IiZJL+E9EF+
KVmxI7qabON96nXcszrTxRTjYOfEcLTDWNmjGTRHNp3g6kf1ceI4cE8Njkwn
e98wjotjmlFhBN7LbrR0j6qzptBBEUkpZv+dxe6ao9m1A0OzNy7dffTizYfP
3/rV7h784Ut+t77/voId+zsIAkfB4ti+aWcqygvSAu0JNBcfpqWBmroeAGvr
EpiUEuZFRVlY0ryiUlISIrObh87PL80tLC7OTo4On6+dWrh9Y6qjvPVsfk48
h0owMIDbOuc01waqHxbYs0dk/2FBDTuG8N59IiKH5FA+EacKktBlZzl0EtuJ
yHThOLm6MNFIe7yDq1MgwYbt6OVGdaTbcdhMFokW4O/pZxeA0E471lh2KUfO
KtxU8aCMfvDQtQtXJk8HenA3gZHJ2Wv3Xm7xPij5G97trrz5A5iXZkukLYli
Hxhf0lBekBXj7eLCtiPYGGir6oJtSGROUHysnxsJZmFt5xmecjQx9fTY3Ozs
9MzC0uLM+PDQ+eGLVwdKOhsbOkqrGzNjvHGGirKGoQ11GRwNsSMCfHwiUvpJ
TUP4wwfVDHTQWX1jF84XdDa2exsw3OkcD89Qlrergw2OTnekMN1pFCemlxuJ
zmB6OLNdbWkhfgExjq7eItSq4uvdeIh3uLykvEvt+eXrszM9hSFO3oWtPf29
c7fWPnBxn37gfq3nX34nxRcvhkAiO3nEHi0+W5SVHBMcHBVCMdJR0dQE0tk+
AVFhUeG+3o5oONUrKDw2NiqtdmJ2anJsdmFpYWpsZHSg72x/UUFXc0dbd09u
Qn40U1NcVpV2oq/5FENZTED4sLwCYfjC/VpHGSkpfU7NzGLPT6faJ0KOKAR6
kD3ZASGuPmwqiMBdP3hvLMuP4c30otOd2NxXnEW1CwgJi/chZ5jjCpOvXy4q
TLSRwsRMTs5dudiZE+IV4OcTnN83NTh9bYV7Fvx+AX9dv7/Abn+JDtfKu7Nn
sZyY3mnZheX5x1ISI0MTU91BSgraBkjvqKPxKbFJSZHBLBTOIyElMT46/GjD
+NTMwux2OY+Pn+8+VVMc21DXO9baczbvTAZZWURG9YiBf+nkXH0iWVFUTAsf
2Da+8LCnJIDgVDT1061L3f1jaQKCkDhnhqtTlC/H15kIJnLnK+cwvJM3zYvl
58RwZjmwHGhu9h7RYeHRDtHRat2cvDtd0w1IalHv7NLSQGmUM9KU4B8XmdG+
dOPST8/f/vyPv//8i+Rue3nft/rtm4J4XwS++SXfb2l2dCrNO7voRGVRYWpK
XHRysoeVmpqxBc4/sbCgMO1oaqQ/A4r2Sj+WlZFytLRnZmae9+GU+dmpifGx
nrOnw2JLOoZGKk+UnauimshrGhuZkf0j889NzXak047IhZ6sWZh6MHVluqOq
dfbmzeXl0W6DA5p5oU7urpx4Ly9/TwKciGPY2zPdHRzYDE6wj6uns4Mbkxbg
5BIfEZrinucjGBqrfvby4x4DaNSp/PhApIq84hFxsHdR9dnTvbfvPlp7++nn
zx9/mV3ep3XebX7/PVjrr19vg3lZxhHwts7B+cdPVhbmJURHxcX64M319SAw
kndMUfmpY5nJ3FkLbMOOTUlOTc47O7Iwt3R54eLi/NzsxFBve4ETLbd6oL70
ZH1Pnb8V2kxOUMlYQxvrmVzZO7HU5WVgV9k8NzdbNXHx2tLitesXB9pqgw7K
Hi1hufu6Bwb5eHI8MTgC0Z5JRHswqJ6OnKAwXz9XJ19nBy+mc1hoeIz/0ZiD
IHd9h/kXF9hET46lnrGupqaCkrkJJbl9tKH50sPnr7d4n+v+oZp5y5fr/fY9
7+vrO14umGLv6BSaUFxUfDInM9bHM9iXZGlpagK3pXEiCnKOF5Vkh3vgrW3o
vkHBERHJJ/pm56/cvMj1zs9P9LWejnZxSm6JyyuubuvIjggyE/5/nZ1nVNrp
1uiTaclMem9q1JjYEnvvvfeCoggqioAVsSD2il1RUbH3jhURFKTbjab3aprp
Jplz7sf7BzSTM+e897zrMh/CuCZrzc+9n92evfdz5tDvolqLJyhjlDYj7E3W
IAz0zq12rTBGWOsrQ2UgqO7vB6XiY12AdDMKjAwGQc2cHdx8A0P8PFycYTHB
YbGI8AA/VKCPtzMIFhYDx8YS3H9X1jqbtPyK5AXGJCZHu5k722sqnlV0rhBw
6cu3nrwF4L7+8y/e7REcgHdze++0ePc0ALzD6+HsCYnPKiWS6krTEBHocHdt
BYULenZITHFZXWl5aWE2FuJoaB8Qic/JTi1upbJ4S2tXl+dmGQz6SFdNelxw
bnhYdW9vX1V2tNGJw/v2HzslZ+jtC4tE5Y4yqONoPWhrL6/v9sfpoak6R6VL
5/746bhiNBDEYYOCAmCBcFt7M1dPMDwIArEPgoTGYWJRaBAM7OFj7+bvjkTF
R6OyCmUOqh2W7RjTOKXnHAiL8dVQ09bQMdBQCR9duv1s49XbD0BE+T1u3qnZ
ACd18/WrH/eQvXq9s8zfyR0Wl1NUUVmWl4CIQCEhNqoyUkomPjG4gtKa0rLi
/PRYsL2td0gkNi23oLKLzuYtLC0sCtlM5lRffT7UGwb4jeapnpaiaFdl2RN/
7D11xczJMzce5Wlig+4YmgnWyO4r61x5JmRUe5/a98eBn/foQksyY8Jiw0LD
QwNDfS0s/G3cQ6HhsABoaFAUChGW6IWKCIJ4WvlFIKOik/wKSY5/qCgcNQ/W
Prv3wHkjHWuQvaaRb0i4a2Al48aDzfeiUvrXbz/cl4kncQBJinn/+oiAJesZ
HUGRGSWlxOrS9FhUWlqcr6GSnOwl83B8UWFFVVlpYWZiuLuppktURk52RnpZ
+ySLO7cgnOcD1nm8uSjMLMjWxjaX3NoxWBWqe/zEgT1/SAM5gJm+ooLMhcuq
Oj6IRD+d8Fzq/ZUOos/xXYek5eT0IjNyUNFhERHBUTD/wBATXV8zD7h3sH8Y
DAlFR4REJkEiEyODoRaecFhMbExsXkWZ+h495RM6WpfOyx85c0TJRFPLVDex
sTKzlvPiwydRsgAAf/kOLPJE78Tbv1+/fLHx/b0I0SIYkVIDyG6Q2Iyiooqa
klRcFqk8wfnyBQUFaX1kenVxZVlpaWF6LMRaw8QTGZ+YkpGTVz/M4C6uLC7w
mfTJwer0ALMruqqxGSktXe2JLgZyZ/YeOCl/RVNV/th5NYXzl6ROn5S/rHxR
x75+jpYTa374oAEan1Xc01sRnxyJQEFig/xCoPbqtvbgUF+Id2hoOBz4BxOB
Co4CHLOno25AfGIkISm/P+My2lHmykVpZQNZRTXNSwpmjtrg1qlxKu/R+0+A
Zf4iuS/5y1JJeEUrUDZ29s0/efpsm/j1G194fFpBfnFZdkJaObks2vqi9Pnz
53Wg8SX55cUlpcVZcYFWapaeIeiY+ITEwsZRpvDqtdXFOc4MtTM/ykzdSMER
XlBBaa9AejkoHpE6d05K+typ48pnTh8/cWrfAVVEYkov3sZrlYPWPHzSgUSh
j7WQmzJD8HHRGDgW5o82czGy9PIPQYeCoaggdFAgFhGMgHpFBYVH2B5CJ2FS
ErGEJgqJlqImJ3N67zFpJT0DfRMTB3hIA3Ptxvz6MyA5EuV+WzuWeScBBCKM
N69ebmzsrCUX7UUVAwPEgShcVm5OPiEzJZ9MzA6zuXLxgpy2FTQmM7e0oris
JDseaqejagZCYrAxEdVdNPb8GsA7zwVyhEgPc6XfNH1LUsnUnpacIONzp3Xl
Dh8+eerkqSMyV84dkbtiahLYOEGvL41GxhmcU4R33eG31ncSC7ApcZFYLAoT
GgA+rG/lDPYOjYSCgiLB8bDALEgMNMoBExYWZ3cyLQkVH5eV1UweWGXaHzkg
e+r4if1S8urWZjbImqHJay8fPH7/cet7LUdc19iZUxA5o1eAOj/e/jx89Pjp
s23ekLjUrML8vIL8gnJyFtrN8Iqikoq5FyIFn0OoLCsvzogJtNPTsvCEohLw
aeUtw1McQJ8XuaP1GaE2anJSCuqemFLq1FBnho+ZqY+BzIET58/LKmlckjqs
Aqjk8VNuqb2TjXUFqR66avipSbRNRFtZFpaAicTHoiLRCIcjyvrewX6BsEAv
JCooKSIiOTwpNCoAg0bH2BlhYzHwvJyk2rw6zryH1AlFLa0zR8+ek1Z3Co0f
5U4vPH/5buvTl29AcPXlex1HXNKQ8L7+G++Tbd43yITUtOqygnxCUXFxlLuG
rJTUBVUDH3RuSlZ6IbGyEIfwttAyckelZGWlJWdWtA3S+AtzS4yGRB+ji6cO
yChqGRN6OXV1NbioJAxGXfqMsrqiiqHuBQ0nWKCZ3sXdJ+XsWki9rU0N+W55
U2Xq1uVTxPosZFZSXjQalZTiaaxz2TcC6gwL909FhiagMCHYaFRgdHgkBm0D
DkDmoQlJeGz19Hyfo4O7voqJpsp5uXPHTTJaZx7eu/Xi/Vfg4IoLdJ/Fdcmt
7bqkeLP533gfbvMC5zcWgy+uKcRn52TlJ/kYKZw/L6NsDInLIRBKqmr7Syvy
4L72xk6wjMLsguwIREbjKHtxeYHDHkyHmJw4tvv4YVXznCZcdQe5o55CdtRS
MrTWM7bWMXVFodxcXPXO/LHrVwX7hFZyW29XD312LDZ3Yqy/ICk+MS0WG59a
HhHg73ERhIjxBEcFR/pgopJiwxGwsGAcApGIC4nwA+ellRbaG1QJb+FgIVmZ
/qaWduZyR2W14f1XH719v7n5cesff4rE+2VrJ3CWdHqLvNEbEe+G5OyK988D
B1gi38DwTHJFESCctJK0SOfLstLnNWxRuIKiovKa+rbymuK4ICcbv9iCouy0
hAhsQfskb3FpYXZ2Ig+kfezIqV/PnVGP9M+mDY7yxluLoJ42bv6egeH+melR
weAY1+O79uz9+aw1PA6X20Kd4S8ImrsXhsqzY2OjIxCJhOIqWCwoCASySw4I
RaEQIeHwEGxsZCgCho2ARWfAI2B+PkRyncsh9zt8fHJSTWGCozEE7aulrANr
vPlcNDP55U8x7/atwjavWMBvRfIV2edt4B95ofiymvx8LCoyuyYX4JWXV7GC
RGAz8ggllVW1JXlxMDczJ1BycQkhGR2blNc0wZ1bWmXShlPNpA8ckZM7qaBr
7Nk+PiWcptDIKFwUNi0ltyidmJmKKYDp/XEMCLhOyCpccPDNGuVyhfO3pxaY
+QGKKg6xuLKcupJ4K5gHOM49NBTkHRYYF4wI8IHBoGggpEVGpifHhLjY5QQX
I+St5yvz66p7a+pRrvHEUjQEntFx5+XWt60vf/7zT4BXBLwTOn/+vO2RxAJ+
+ULyLsj24mrAQIt4U6or89JSMQkZlc2FEAslBUV1O1hAODazoLi0tLggOdDD
9LKNWzKBUBQfmphb0jzO5i+scSnNCIUDB08fPKpwWVPdaaC7Y3y6baimvo5I
bmtqbiIWFZXV1/ldkLpw7Pe9e/b+8fteudDB9durPNbELCdW65iMXDY5IaEo
FuYOjSZGwcM84ZBIQNZ+jm5Apu0dEJUYF41NSYfZh6WcjO5Kd8zuGJ+fX2Av
jdYRKTQKZZTKuv7s0zfRbYKY99uPdQ0J7w6weNX8zlMozyS8RYVZOfj46Nza
1vaiICsV+fNy2o6g4PickrLSkqyC9HCI5UUTD3xeVn4cPKO5YwjI9eeX+V2l
IOlDx8/L65xTUZGNJlX3DE/k9zYyhijUyeGB/q5eZlNvXpSSqpbGxX27D5/b
t3u/Brxmep61uERO1peX2atVmHvEKyUmOBiZ3eAXHxQSFRmNgPt5Ojp5m5g6
e/oFRqWmOVahfYMj3AprE/SggiEaj8qaZo2Q2obos/Sx8bXHHwFd/vblTwmw
hFnMuyUp5WwDb4girO+PGEl4C1MTswH/X9Le2ZgZaAEERWev2ELCE3JLSkrK
8gipcLCFoikoIy+9IDWhrLVvfBqIn+cna5Lszx87dMb4vK28qrNlbC21u61s
gUmfYXNnGTQ6k8McaaoGmzhAjBSkTsvL/Hxo/1Elv3oOl0uNslTRsNQL706R
tc9z8w8uyvFSz4EDeWB4iDfY3cnQUl3XwNzKEltHku8rCFMHN+ba6BwLmBod
FUwuMBa41LHppVWB4Oqtja1//p9//vn1z+3PDvDWdm1yR6Vfip/gET9MJQop
xbyZ6UkpSUkp1V0dlRF26tJSssqWQcioxKx8QnltBSEp0MXgkpFPan56Xlpc
SlkLhcpeXuK05kB1pA79dFDZyM8nGuqNmegmjnD4szz+wsLcvFCwxBtkdI/B
Iwuy7Q28oUF+ttpm3qjCybWVNU4z2PDiJZckYgkBnyulXVjX57HXP9slMysS
7OhprWNscF7+tJYbGE8qsKB2hCgGo8zPOirGzNGonOmVufWVOTpz5dq1u0+f
vvv2D+Dz5w+837brz2Je8RneFOeD4oWCr15KtkaKeJPxSYkx6YVNvZ0ET03Z
03JXjEEYLDY5I6ewtru6KAPhZQzEFLiCdHykl2NB8zB1dklIJaV4Xjr1x+79
x64onDZR9uzunRifmBvl0gXLy6s31hcWV1YneIPj3Vxqa8/4wAR7oqt/ZLBn
cm7+5mSLpa39EakoTSSuKcoiFFtPg0odgWfmZEV7u4M9DFV1dWy1bPwD4rC+
OOoYyMNZR/cXZBHrBY1KneKvXV+7zWOvPXz5ZmPzM6DM33aA//GPf+MVZQ2S
hF+S/kqeShO98vAmKRufGB9b0NnXmGClfvHMaWUbCCo+OyObQOxorS1KiwIi
I32/uLxUDMwNXlI/SBlkCwY7Uu0vnfh19z55+TNKxy8p44jds/RROmNmbnrt
1trVpevr88xl6jprkTdC6+gipqM8PS5e0tZU9K9fvY5QVvrj4pW9x2wQUYgY
XFcvyfFnn0xfAx/T8BiIoYW1jb2pgbeDT1BoTT8twvbwaUWVVs7sjdEJIE25
ur52c3X+1pu3L999+PT1H//888v3Os6OvRLfpGxHWeKoY1OS9W9uvhazilb2
47NTEuAJ9UMthZHOOkrS57U9I1PSigtLK0lt9WUFyUFATuAGii/KTQ2zcUbF
FzV0zcwxWpEax3775ZCMtLSq/GV5zciK6Zr+8ZKWOtr6Ku+BcPkqi8YTLs/O
8ns6GnIyYbrqir/8uufAXmXdGO4qbxiqHxxy8uB5owvW6EwqvbFA/2cM1MvR
1hzk7easZaVvFW4WistNmxmuU5Y7rh9bN8Tq6+NxeXPL6zdu3rk6t77x+vVn
IC8C7NXXf6s7i4/wTlT5/q/XCcTGa/ulsMz0RDQ6qaqnsyreTe3CWVk9TwQm
rbi4mtzYWl2QjnbTvmLhh8woyU6PsreOSSF2DTOYY0VuF88e/P3wcUV5pRPq
Cjbpo/1TnUXEulYedYQ5JVyeGmMtc9boAs7EdF9teYy+pcKZ0wcVtRwcMZ3L
q3dY9X1Y48t6l/eeMfdpIY+2YmV0MvCoJG8XM5NLF7TVbENjKpPiWxmjZvt1
DXq666bASktrV9eui54Yu3dj+eYr0UaZLxJT9XfebSe8A/z++/t8Et0W1+7S
UjBQNK6yl1KP0Jc7fULeyDMUjS8gVDeQG0qLEoPdjNRNvFOKqwoK8Z523vGk
3rEZen+B1dljv+2VunDl4mkpQNtJoyRWWux4w+AYjtzeyZynjlxbZTPZ8xwO
e3SAXAiGXjh60NzDH5xcM5cdL2TPLHInywrMLx09rWhcOlPTYX5OIbAkLyYK
am7p6OqOjirORhGn6N4KGqXt9ZWFGr863F9cXrv14PGTJw/u33229VXke0XO
9x///HfencYyyV3ozv3gX3v7377FYGPBgVldlOYk6/PnT51StARH4bKKimoa
auuKK1Miguw0LeGZxOb6hjxPC4uEhrb+aVpXguG5MweOXLosf/aMlp0TvDCr
PxHeN9vXGAEvz54eYFMGhSv8GZaAv8acZjWTk+CGSlZIUOEEpWLyrp9qYFJn
xwyFnpMS5ntyn1MfpdTRTvFX5YS6whg8IjI6HdWCAdfQGF2ueYUFcJtzV3Zr
py0KBHPLN+4/efZs4/mbb39++YcY+D/w/ku36A8X/NtLv8WSjo5G+qHKOsi5
IWaXFaVOXzT2QqVmFpXUtza1k4lZ2HBHfZ/csvq2uuoUZ2vPkr7mrqnx1kiL
S/KnT0pLyxyR1/ZwjQ4HV4dWrFJH8m1i4urbBnriervWhZxh1uIt9vIyZawh
wRrW1NHSRauJGHkyQAwyVA5JLOsfa6UNJYIN67hAzArR3XPBuaoyNTUMn9xh
7kOdZKzwartizh0/ImOAJwpurq/Mz1+99+Lt5rtXLz9tbf2frxLef/xn3h+b
ZP/q4Nhe4P8Og4QGZNXWl+TFuhheOHtG0dAFnpRRVNbU3tzZWpIZ7W9jhyip
bWiqzI+wcfEktJJ7GeNd+X4Kv/964PT5M8dlLxt4x1k4IfKotJ7ueFh8KiWa
FB3U3bQ+XtE0zGfThLQRxgiRNzREm+/s5ryuufG431tD5dTxc1o+/h3Umc6O
duryQG1Otuap37XL6rNzO4hH4gT0yRtXryKDZY7L2Sbgee3L9+7fWl+/9WTz
44fP714DzvWb6FYbcEH/dn63/vbZARbvr/goOc4JiAB4KrmzqR7vcPnEMSkt
O//o7AJidUtzdS0xLznIxtI3OrW8pqWuMMTEAV7Z3UvnjHWl+8n/+sexY8d/
P3NKVxaOlnNLJU1MjfTGJ8dOl0fBteq7+uZJ1uWNk7y5VQpzaYm5zp3iMu4J
iFjXmAIioQOmdvnwqcPHHHxM2+lU2qKQQ59HKp4+3FCYjeuUMxTwl1eW6yzV
nCGYpFEGu7B/9fqtmzfvPNp4/ebdl62PXz+/+/BZwvv1f+bdqc9+77TbvkJ7
9w7pBYpMquxor4q2UJSWkla2geNzigqrGpuaagnp2SH2ri6QksaO+qYCqK9j
QHbb6MjYZBvBR/7gruP7Dp46oXje2NJAOaaweXxwqI5Q2DBW462XVjI41A2O
QjSPMgVC6hM2b3mmg7syRyOXV0XVx7rioxvqMI6GpjKKZ2RNLgVOVKwtrlyb
w5w0zi22S4mxHHrFm2/O00mq5rOHSJmWbq2LjGvLd548ef7u47sde7Ql9rXf
RHIW//nf5LtTlxbptD84BJFUP9Se66clL3dOVtc9PDm/uKyxu6u9vjAr0dfK
wS2cSGomETEONlauuDb+wtRoD8nl2E+/nj50QP70YX0dDSmfmJxGVmN7dWkp
mdwUGBobS+8NiwA3dM+v3mfShUO8eSp1mjk6MVIxs45rXfFLV3ZD5NVVJVYB
obuXCVQB1Du7+HCoP9XaUtsVJ1x70N2Zye64yelMMzYxReDnu5rWrz96sfHy
w+ePOw5HElts164k3/8fvJ/+hdcbikTndwyR4l00laVOXbAMCItNK65s6W5v
I5cUx3lYWHliqmob60lJ9rpqrpnkQdrYFCvf+PhvBw/sO3JK6qTWxfOnw/yw
rZPVdeSyqpaOJkRyJKI0AZxTxeOvLPKX1leX+7qmF1trZgdmrj8YuzdXNncx
WTXMRFUPQabUjXEYbUV1TSP829d48xZHfiMuP+xdmFthXh8jJSFMFUxrmoba
+FPTD1++fbP5SXwvJsba5hXrtIjyf8D93hj8Iy8kMCS6qL23KhlkoCIjp+kS
GhWPK69ubmtobq4iRHlZmAcTSG21ZSVJrpoXdYuGJ1gs2mCWzsk9h3b/cvjA
MU25C0fVAxwS+zpb6ltKiOTpyoI0DBTiXzZ4Y+kW+9q9ydne1hVhZ041pbdz
eUo4L5hbJ0/FlwSau2lqI3xMe2uqOLx5wepAe/XMk8jdwau3u0qJ48MFvXl9
jKrmvOpyZt8Qdf36xttPH95//pejKv7y7a848j/Q/iXhH3nDgoLC8A19dakg
TelTcqoGLqExMeWk1rbG1taqOJi7mVVCS2NbUUp0gJWeqX0zT7DImxoo0Ppj
176ff/n95K96MgrH7fwCCA3t3Z3V9SXVM+X91ZnQiDL+2jQVyJOHeEBUOdFR
VlJCS5uf6H06vjh5Z3UmB5WZm55Lbktorm3PmIyh36xujOVMLRkeKJ4QMriU
u+PU+nR/Zwsn7Cx0ZHRohPHg1TtR8/aXL/8WQG7r9X8U7g/AP/C+RaIjgpIb
OguCzS7JHJOSldfzi4wuqGhubWyuzQkHO5k4prcQS1JxSDdjM0jOAJU+PUZj
wRQP/bzn159+239I6cRRPZBnHCGpp3mkbKCkd6Kpf6ChemK4u2dybb6fTu/n
LFKZBZ29fVmM6eGF8bnRB1N3aqbRgc5JSjFuhtDg8d4oxq32acYkv9j56D6j
rPqmnvbZQUp3qKmKMWlsujGAlsSfFWxsfvws2hD0XZG/K/AXsaHeuff9H4C/
f0SlLXQUOiS1lhTnon1RXlpBVccRgc/OLa2vryEVY6N9LUxBmZV5+FgcysXI
FF7Y1EOfoXTVeugrntj1y+5fd8ucOywdCPbLzkhur59ob6mYGRwcZIyxq3qp
jR29jJl+xtJ8/0DPUF9Lw9KwsL+3tecqb5M1PBpXhrTXijojHx0g7L81OjXR
lOxvdV5Py1rDxhaeXdDF6CPn+xrGdbMovSYZleRr15++fL/1WWxmJcjf/kW8
f937/p31y9+ARbzI4JCIhJLiWH8rpdOnpa/YBETh80oqa6srqgrjMG7aZvDc
kvy08HBvYw2dwFRi2zhjoik6H25wctcfP/30y7nDsi4I97ia3NaGlnFmajmt
ZXRhmTaSQSqvbhzto7AWemZ6Z+jUcQqHstjPzl0XLs1PLXL7BzLrDsbZ+hWn
1Q8O1JYVVMLBMKWkON+sPDAC7gZtSK9sJBN8sT2DrS3tfrSK6fuPN96JLks+
i4EB4p15I8mfop9s+6m/8375d94QPy8oqqg8HmyvffHMWVVLT3giPq24tjK/
iIBDWBjZoQtzS/Nigjx0zSx8CXUU+uRgR0tbqsLBXbt//vn4vv2W/noW0UUJ
1fnNrTMBAzQBd4xU1lzYU0FoG267OjjSNjU8NTrV8njqxsBk9a05CodH5Qvo
ZEaCg3kGsae+Oa2eYBtDUj/nDKkvLe4rN3FStxhBkiijk50VBR3kiuTutGJh
9/XNtx+3vnwGMoVPYte7tVO7+Ssl2gmZP/8HapGcxX9xS3QPHhwMCYDllqeE
uupckDmv6QAKi8MkF1Vmp1eURMMdXGFp5dn5aGQ02lpTzZ/YTZ8eHwIiiwSN
wz/t/nnfr2dPu105Fe2amIsr7+sqHmeQ21vKiwsIjQ0NOalDwiHK4MTYSBeX
foN1d2xunTDddvta253+lb6egSQ8snFwitk7MZrdUndZQSbUs6utmBttEOKg
1j/WxRIK6MNNbQnJ6CRmPHVJ8GpTPJr9RbKVTsIpktyOmfqvvJ9FvKIj8f4d
GB7q7pmYFw+xV5c9I63jGRqXgksnlBEKqgrRwZYmLujU+HhQXCraWPFyROfE
zNTE5PhgeYTRgd927/7tF2kV62PnM8F1wbj6IR6prKeskZiVDEtr6kmNnhyp
6a1nD8y2j9MX+ELexiKJk78pIC51c+ZrGGXDdcTZETZzdna0b8BF1SAwHT8z
kU8vCqjL18hYG2BenZudIlf7OQYjBro7r1/beP1OshVoe5Ropy3l7zbp77w7
P9/mFZe1fMD+FrYRWIiN1gWZ09L6IHRKbk5uZnFdNSE1Fu1o4IBMxkR5pya7
qRo45w1PTo5Pc8fqC0Ptjx3du/uXs785SJ8B2WQkJTAGixrwbX2BsLSMaMfc
gcoiWkp6YW1NO43ZOnSDvbb0iENez7g/VLJaw14dGO+Y7GYMjF+bXBxbp0VR
GrEqRUUC1kjj8lA4uTsi+9a84N5VwURBcageGIe/MzTz4KnohWPR6jYxzOfP
/3Io/xe8krP9WXzx7+9uq24dinLXljsrff6CMSgMk5qWhidUFeIT4uDermG4
xMgQUEKEjbYrpKRzeHKKIxitKsGGX5be99OB3aoy0io6mJ7cjLpmVEcKLfdK
YIG7k3XYAI3pkOxCCI3tJrUPLk3dWHxAaZ/vWGUiRgvpM81UegOTyBtZXlvi
bVyltC401iIq09c43AkOI7msppN+8+a1R+uCPhQa4uSfVs4Uzs4/EpWsvnyV
8P4QMUm+/W95P4kL8VBXQ0XncJS7rvxZaRkFY+8gVHJqUlZhVnJGerSXlzcq
LhQGDgyDeltYWUVW9c/yubMT3Q2kLDvpn3Yd/OnIRaPgNAwkJo2YACPVz/rY
QXOhytJtnKpg30QbNy+PmFrEXf7MVVp/94xw6HPBYAJuhlw3VT9d2tfKvsd8
dPMW9/a9mezKtZZ29uINDn1mYrp66t7a8oNby1ON/g7OATFp7ROLd9j3X7x7
//Hbt8/fdwFvr0/dXhfzX3klPxS3j74NcDe6AolCuBqqyp6XUbQEh8ZmFWXm
FaSnEjLhvq5WgZFhiCAwFA7WVtOBVfezhWzGFL23O8X1wsEDJy7om+lc1AuE
gjMxuiU1jUPhYflY6QhSWlhWlKePg7+hv3ple//yZH5FDauf+CdZkJ5Tmlfa
Qy6aKKuvYfTeWni0cnV9fonJu0l7cG1x8fpj1tW7NN6jh7fvLM+1FcO8Y+Kr
G7qWuHeWbj/ffPvh67edrT87yzU/72w3+594f5i1AmyW5Pk6Dw8LfXQszM5Q
/aKcopZbeGRSYVVJZgbgjrC+HqaKLpj4SE/P0EiP81ecU9qHGGwWg8Hsa4U6
amtqXj54ZN8xJV0Lp3RHDaeM6jFSYWXDEMrHPtgsHuIRbGltDXIlD0wthLk4
YjjJjHp2bxEx3Q3T4EquKSnuwPev8J6uPr+5fluwtrSy/vD2tVtzD+YX7ty8
/XidOU5NQwaGNzYMs9k8Hn/55tM3QO77VbL36dP2OtFP4vcU/ra27r/zuno7
+oTmwNxsLl6UMXJ0CEnD51QQsrJyc3MTAm0vGflAY0OsLOMQBqp6EFLtOGOQ
PTzIpOIy/Bylj/68++AxOVnl02TH4xqBIU1d+V2DNC87SLyza4hfSMA5sGYi
qYcy5ePqc2n8PCG7pbyR4R8dapbiUoxNzUAkzhBvzK6s3b179/qDe9fvPbq2
dvvmwqM71+4sPF+YKM2NDABlEwcnOcvXFjhz11+/3Pz0fuvTdkeK+L4EONFb
O3NjO3x///fPP8p+u57j7ucMisuF+zsoa2pa2VuFFpYUFeIzCwmpSViktaah
AyTc3RKWjHS0c4Gk9DQMDPR10qh9ZLyeicLv+/ad3bPnyAn1wr06zjaRZfk4
THVzWGRMvp93hK1LwE862JbFpvaTmLCLTTJqV+Uaw/ICMt2DY/SdCsHBqfal
uXU3/djrLM799Y079wDsGzfu37x7++nqCG+4hgCLiYgMI9HYQsHcopC1tPHq
/dbHr6JNKpLFmh9Frzt/+vz/w+vsauuPwUfAbC9paptY2aAqqisIeTkFhdmp
cUHq+rZuwWBTi5jEcHtdHdvg7IL+Ycowd6K/D29hobX/4J5zu3cf/lXXfa+h
mXVmPCzMo6wwh1RGDIyD2DuoHAhqG2rAqZsH6ddG7Hu2q+d4ugE4PBAZf8EE
lBgYg462aYfL904Vja8Inlx9dG35/hrv1srN9TsTLT1VYcgAv1RCIXGYvbo4
t8rvYT18+f7Tu88A8SfRs+ziwPD9+7/mAnfY/je81mZG/sikuFDTC6qXVEzc
sCWllaWV+XmEPDzcQdcaEhzobmITAAXbql22j4BW0YZnWRz2QG1Wkofusf37
ju/ef3zPJWnFi/Je2DCIhz6ppL6iNj8mHh3ptMe9vbcsxfqKpSO2UrYiA3cR
ddQeIgsKDbJx9iV4BRAMwJm/Oeenw4Yo/Yu8u3zGdd6AgLtCY3ZUltYEuYTA
85vozSPs9atC4Uw79d6rDx83P74ThwziRe0i4L/2t++g/Z33h8/3lmhrCyOf
yKwMmKGqupy8oQ+OUFhVVpSVlZ0UGeTsbh+G9vVwtPQC+ToZqhu6ZrZNj05P
MmdJ1eVVPpdPnpPd/9OR/YdPHD0uK+XqGgnTUGkgNkZW4Ktx6Zm7E4ZmQcnm
HgaOXkRzt7toi0RVNe/LinreoU4++JxwKFQvUulYSKANvLSqaJy2MjW8QGsY
mxGQaysTEdXpwdCqip4RlnBhRUDt6+6m3Hr14fN7kbp+3rkPExWVf+D9vF2p
+h95xdGGWJ89rT0SCKleRsb6SldMvHGFZaT8fGwUNhEb4WujG4iBB7up+4aH
uupd0nRtLhoTTA2x+vJGO4t9dZVNLvz0y6E9R379/VfpAyY2CJ0DLuSUgvC6
vPaI/NiykkqXdLVEBx3rWU3rmzG4ci0je4iauaFPBNgjO780yNZL9ay+trFa
fmgJrmt0ZmSQOVTTTJquDg+H+0SVFGdWDw6PrC0sCab7ijIqu64+ef3+/ZcP
7z8CoeTnj+93xsZ+5P0+8ftfeF197NySMpC2dq7G6oZWIFxecVVGUjAkOjUV
5alnHJaaiLDTcItCulsaOWNTceOLjNEZciOLUokM9LeT/Wn/H/v37N59aO9P
uqbm+w6FZjnCYwuJ5PjsB6FNvtm2IHSQ2ZSNNa6PVB3o4Q73B5l5QcNx0JTM
DFtXjxNGOse0TWoglRmNlMG+/oGmomxEVWWANzQYWtE2UMNkzC+xl1hj/dno
nN71xy/evtt6KwoqxZr5ff3xD7zi+5N/5f3y12dr5wA7OFm4Y+P9rf0gJlrG
9tCU1KyydJB3SEIiOsDRJSwrMyHAzN47KsjBzdbU040wS6NOTDazh/p6MjJz
9dWOndp9cPeB3X/sOqYrfeqQho3/BXtEILGOxK2iGNVB3WEEUFcEFMxoqkCk
B0REYbBh4eHICAiSALV01LA5ekDW0KMUSyqtGWrt6GkoTUf6Q7LTYsAx2V3t
Q4Jx/uKc4Bq9u784sXrywavNj5++vtvxpu/e/yfeD/+NVzyv4uBo6w1NQHsi
nfSsnW2hKdmVxQjA6SZGI0O8QdH4eGSol5lXfJinh+0lt+Bq5szIGI1Kn5rq
q28qC1eSOrNr157dP+8+dkZ1t+whXW2V05r2FuWz1GoWHl+ThIjJbamKgrBI
lURsTQYSm1WBToyEuab54C30QVryh49eMUtKLWkhtAyRy2trM+E+GASaQC4t
6egfn+EIFpeX1tjjrQURkd1Lz96+/vht6xNgr0TuSCyr7S39O6dXvBdZhCxq
OtupVm6jfxEbNJEPe/f2ra2jjXtEepR3qIu+rZe1DyazNAcagcCmxYcHegah
ktJS0O4GHjAEEuxpFxtDGqZMCFhdTCa9t6WXhFRXlT3x+57df+w7vF/qoNZp
uSu/75VSL6YW9fcSe5qaa1PwLf0lMY0LhLgCUlUVsrSkIis30ckoAuqjfkFX
Tv7sWQ1QUVHNQEtvd2NCQVE0JiCJUFpK7h4YYbBmmey55VUenVKDC/DLFTx6
8/oD4ItE9lk86Smyz9uxlUiK22HX+4/iE/49P97aLod82T4F4stRZ3dHd2Re
bIC/s4aJo5lHDD43HRERm54eEwEH8oSE7LRwRwPvoLgkiL+tI7GSPEinT07y
OFP9vePNGGsnucO7du36Zd/JM6f/kDl14cjeX/0rs4L6yWnUwsERUlkni9DZ
SOViQEWN7ZV5VYWkunK8kZKNt7HcQRkgGdPRiqklNY2MDdbWB+KyEBXJ+MZu
cjt1Zkog5LFmBQsL/NH65HBYcDr73ps3H4HocGv71m8nppTUO7bnI4HjCUhd
ZNG+1wN2dPq7/337dhMU6A2C5ScGAwHlZQ0DUHwyPjMNFZcQE5eBg7gGRcfC
ve0t3e2DMlAepkF5BeSxif7xhXkObXh0rDkLilI5+tOBA/vPHvrj0Bm5s6cO
gfKCNPTGIEUNHU1d/V2905SGiXEOKQdeSmwk1pdjSeSKZHM5eQ3zC3tlVKRU
vc0zG9p6hhkDpIaw1Oy4jtr8xn4gxaaxRPNrc/N81lQvEekDjatg3nn99vPX
ra87J/X7co3PkpukL2Jtfff2B97v2rx9j/RxG3cTEuTrE0TAw6xMFJRUzIJT
s3OLSrMjoREZ5en+lh4gNycPDwdzKDLUPxicAs7rGxqYnGUtsKiTU4ON1YV4
Pbmj+/fs+u3X/SekpEz8g811L+/K8vYpb6mu7OzsmyYtDtGp7eN1uYXkzA5i
bWRWflmSh/yx08ZXjkiryxkFQyubKZNjM5T2DkJJQWZLd1P3yAyfyRBwgShy
eYlLayCVI+09YkmsWy82t75u/SkJpL6vl5Bos5hXNIAjfrf649aXncak74ng
l23cd6LeBn9vZ9vwwjRfE1MtDQsQhlBDriUWRMASs1OjQ8xtLM3cw6AO1ohw
P2gSBIImtHYNTM3O8FmTU9NDrV09sYZKUr8dOH7s0BmrQAetMxrHDpw/rezp
h+vKjKC0LPe004Q9oxP9g6QacloNsTYlFJWX5Kt8UkpRT/aMurYfPLWxc3KW
Sh/r7uhoqKppHRuh06c4fN78HPCZF04PV2NDXW2Csjrn7j5/DSjzt53SnGQa
f9sOi43vR/F41XvROkpxb/Df7lIkh1fcouTq4mSFzsO7WNvZ6DsjMwqr6qtL
UZAQLC4hKsTW1t43Ghdm76TvnJ0X5QRJweU1DU/QZmZ4jAkmnTLcFhEIJMCG
ZmZWV1Slj506ckHhxLFdp3X9owjJsS2r/bSOsd4xTudAd3N7TXJKZSnOxxsV
46Qvc0nWWFPZwhmfXNZNobHoU5N9vZS+7v5RNp3LorO4vLmleT6HTe+rL3HX
1bWNJnPuPH/1ZuvLJxHJ9n5UCeV3MX58L8YFoES8X7e2A66dvPGzRPxvRb06
Vi6+7sh0nKOrh7ueBTI7IyMnJ8fDzQ2cWJnm7OgKSSJkhjoaOacRUUiItysM
R6TM0nsn51gjTOH0RGN6LcTisvqRXSf37vv5qKzombkzFy79kuGPtMlczGmj
ZTdOMCY6Wyi9zS0BKenFoSAHl1ATGzklFXNTm8AgYlX9yDSDxWEyaVMTkxMT
LN4sh80XMqcX5oW8WQalNjvKSNvMNqzx+ktAcN/+FJWbxdcMX7Z5t75sBxqf
APFuvn0n8q//wrv9SNLHzx+/874y8YB4BuQgwGiQiYY6GOmbmo1DejuAy4rz
UWDvCzE5BWkQhF50GiEzGB7uHF7cRRmkjLMYM/x5Nm1soK3JTu2S6i+/7Nt7
+MD5E3Iqx4+cVpQ6agc2toiKyGmlYQrIk2PdFcNjuZ2RwbFltkivK3Gytro6
6hau4ZjkqraesZlZNk8gmGZxZqfp0ywhl8Ofn+NzBUv8nvZu4Kwrq1iiSsj0
l5uipV6iFqQtyXINiaECDqrEUn96D+C+BZLkt+8//LUZ99Mn0fycJAgRDWC9
fiVqxrJzAvtCE0IR8T66F5U0fZHpKZmJ/v6RNcSaJL9L1vH4gpyIABg4LS4A
EweHp1aXkbupw+xpJn+ex2SMDta56Tio7/1tz36ZEzIyGhpnDiupy562MTAH
GYZHNXX6hxSXTzc1NLR3lRVjQRlGfoHmUE1TLUMHcEQGobh1YITO5nBE87V8
IZ/NnOVw2bMcwDQL2cwZSkVuJtpcRcMivGbizqu3n8T9KQDvZ4nFktx57wyu
f3y/+WZzU8T7bmfVszicFvNud+mIeEXNdj72ARC/YERKnL2avII8rIiQV5Ue
GJFOqqjGWJ6BhmLLyxIhCG9vDwwRj02MjMQ0TbKG2CyWSA78SWpVoE2c1oHf
d+9XOHFa0UhXWdbRUk3F5pyzr6I/srDR1CIsrLu+uyZnpLAx2S/GyCzIy91O
X98pLDGntqlxYGSKyeXx+FyWYH4ROLFcHp/P4wnm5heE451dOSiMn46OlSu6
jvnwjWhq/R8iXkmBcqdqI84PRZHHO3Gr5Is3m4DB+iTx0+K2YMnYr7hz4+0b
UY/dq1dQp5BgW3dMDsxQU/WiWQa5hFgXD0HnlGamBKga+tomkKpxSFdPPUh1
dXEmytIgvp9JnWSzucJ5wIrOTpExEcXGUkd+/kPm0HEtoyumFihPwHpJW7tq
waMLmtUNDZyjylqbYmo7SZFxYZZX3Pz8/Mzc0BllpO7+nvEJOovDEy4IAfcj
HkkU8IRzAoCZLRhOSY4PABuoGXlHFXTMrAO84n6cb6LCOYCy42y2A0sA5rW4
E1Y0JfhBvL9+2wGJJ7slcbO4xf/Fi5cw97BAY9u4ZDcTMx0tWFFlfnk+KhSR
lhELBxm4Gjjk15CwSAcbl4T07Kp4kL52fsdoN2BV5hbm54UC4VRfGZHorHF6
/+9HD5w21ZN1h+Mg7h5Wl9V9dNOxTZVqJgqmBoicSnT8WGMiHumgbeGHRfhi
K+o6u4bHRpkiY8WbW1zg8wTzC6LfH4vL57JZtOGxkUArf3t9+YvaPvl99KW7
r999+iKea96SBFd/VeckWG/fvHohGiJ79Vp0gj98kDggyfzvTpfd5ptXL0VN
wQHeId6W5uERTq4ueq7RqQWEYlx8KBSbGANH+lteiaqvqEkI9bbx8okqxUX4
2Vtl1o0PMrnzy4tzQgGPTx1t7S4KNDp3/PeDJ86aqamEZuNj0QgPPTMvx9iy
Zpy+qar+Jc1AdEgAeaApPT8c5BZekZ5Y2z8wThmboHJYMxxAqHNCHhf4/S0u
LswzuVzWDH2opW40VN1aT0FZUde7jMq9/ez120+Sfo0tyds+f/erb16/fP7k
ybONl69EGv3+vaRf9K95ZzHuyxfPnz57tgECBXk5mIeGufm6m/oGh2cQiPgY
D/dITEJUXICWdmp5bkFyiJ+tiXViLjQyzMcLTRyYnBQuX10QAP+j7Onxod78
KLNLCidlLp/TU3KKK8cU5KdGuCJ94JCGLLitlY6V8gkzF2hAdjetuo1YiMtp
biQOjdGYExMTk1zmNEfA54oUGDBY84Aqc7hM6ugAmZBch9LUVpHRMXBHVI3O
3n/2RtzMAMRRn8W15w+SpOGz5EII8DOApj579OjpxouXgIABuu0hsx/m2QFj
9vzp4ydPnj73BUP8HC2RaE8vFztbB4/4VBLe28gyIjYlFmmlrheJTcRg4b76
enHxnvAoVGBkeEnR0OTC1bV5nmBhkTdPo/eUptsYGqjo28tpqYRiS8OqqnMT
o7MjEZH5KJCXk67P5RPaNhGo3KrJke5BSnNT63j75BhbOE2nM/gs2qyAxwGC
ZSaLzQOoWVw2tae1Pi/GPxZyWU76lLp9VFbzKOfZxuaHrW9/fvvzTwmvJDUS
35Bs+9VXr148ffjwyXOA941kVP/HZQVvxa3uz588evD4ydNnzj6IQBdLx6Bg
PydTEwt/LLES4e4N9ouPRSXYq2lDfeKyIoLtvFydjAJj0hJjQJGxkIHR+dXl
haV5wSJvTkjr7ShF+gW6RpkpWxq52UdFF7fFpXfik1BwLNbTz9MLaXJWyjMZ
m9M0NEkboU4xaGPDoxMsNhvwu+wZOgdwtQtzqzwefUbIp05RKdONybhYlLm2
jeZJeW3HoAxy64Dw4ca7D6KrTxGwKE34IPaqn8Q3YKJRozeArj6TzFS9BL6L
kN9uc4o/wH8gwn149/adh0+e+Ichgjys7fzDw9009C0isnNxUbhIpCssKTXF
0UgvKCQ+DAVFhbgdN4EiKwsiQEi/4NFB7tUV/vwK4EPmhPTB/npcIb403t3C
xsxW07mgIgFZ1VAdFR9QkuIfA4uK9ZW+5FqQVdw+CgRRTCaLxWRQx/h89gyT
w50VuV8Bj7vIpVNnJihUykR1U02MlzvaUUr28hVdu4ictik6TXB3Q5zViiKO
L+JuSLGXEb+nIeF9IxLvgwePHj/deA1EFOLJ5nc/dAK/FuPeu31LxBuCDEOb
WrpDoBAnNXWHpNT4nKKCeLgDgpCDdXbU94SFeKRiEpBamgFO2Mp8f1+UK441
zFxdZs9dWwV8knBmnNpX3lY7moz2hbuoGVkXJgYkFed0++F8BwqiCTF5idFy
V2zqKmp6aQw6g8dh8+b49GE+HwgiZ1mMaR53ljM7Ozc7Nsrqrx+sb0rOqUmy
vGLnLnVcxcg+ILVuZG6Rv/AAgBOFjqLBZhGv2K1KngH6KB5TePNy48mDe/cf
PAQELJ55fbP5dmcPhcguv9p4/uTB3Vs3bty6//hxZAwSrm7gCYf5WKtrG8Pj
8WRScpyXe1phShLMRdPczjyoqjwtWNHBzKmoNskHgoHWs8ZYi3OchTXRmynC
2anpidbWgV5CCaoiRB/ki/cFZcXFdtskBVGLM5oyq3LSNQ3sm+vJ/Uy2SKKz
vDnB9CjwjSPyOwwumz49PcOjDfeMU4rKcTmRmJx4a1kZMw1VdbMAbF5DP2t+
fvnRZ4BXlL0Dmd7n7T5XSTXn4/ZegpfPH4t5Hz0RD5GJWvdFxCIpA5ZKNGf2
4M6Na9eu3bj36HEiPtpe54olHO1vfllfwSOnsioPh3EGpcSnlsaYKepoqGXU
ErEe7upKGVnZiODwePzg6BibzxWuLAqWbizPcWdY9P7ByZ627tL2tNiIsBRv
nzh4FMk0Oq6voJhS01hf4ukGIzc3dgPBsZDFmuXyuEw6k8PjspnUoYkZ2sg4
FUgIh2rrhtMQQZgwcKCbmrS0kpGZhW8ysbaPMsVbWL33+sOn7bZJSV7/PW4S
2S6xMQLke//+w0di4BcbGxsvXknG9UU5AmCYHz64e+PqytX1a3cePsYmoC3V
FM2CQ5wMtS5rIcsrinPy4I5gNKqkCqx1QUPFpro4Bwt2u+Cbiw3zhodFV46N
AOaUs7Aq4F69tSgUsNkzI4yxyeFxakdDY3pqajgcC4vCm8HymsvaJ1rbBslx
yHRyd0sLY0E4x2IDuBw2W6TP09O0sVHaSC9lbJgy3lWR0RHj4OHjYWGpffSE
ioadMyytoqOXMcXgrdx+8lL8KsxncToEnNh3oj0a73ZWAAFx8Tbvg0cPHz56
+vz5M9Hs3MvX2w38r54/fnj3zo3Vhfml1bXbDx4lxYR5XNGwD/QwMzJVdsZl
ZpUWFsC8/MLwxFRXU2VlldiK4qIC2EUlf7+YQFtIGKZlZFo4CajlklC4dk3I
n+PzZicZdNb4NHt0qLeuJj8vrTICF+PoX06upY22dVP78jJr2qndteOi3w2X
L+ADh5jDYdFpU9SRfkpXY2dfe2NvSUVCcYC2tZGlhq7mKRl1m1Bkem3TkDgi
WX306s3b92J3+1WU+r4T8b7d2YjzQZz3AN73/l2RQgNG+unTx+LpV8m8/pvX
gCm7d+P61QUeV7i0evPBo/zUUJClqb23l5uDmbFDSEx6XmpeItwHXliIDPfQ
On+pIqe2PdZU2dIABNK3C4xK7+mfnaVw5nhzC0trV3nceSA8YjCuzdL5Y8Ih
SmtjQ19BT3pFUoBfWU3N1EjbMINeSewY4AxUDQFxMpcLOFvANgOHlk6jDve2
tNeW1TYSC6ujyzBYW3lNQxtFBS11XW0HfF55Uzudw+exWAv3NzY230vWIIl5
gZBxZ1XMDu8GwHTnzr37YgE/eXR/5yADxK82nty/s3Z1WTDL4s2v3Lz/qJKA
CLAyMLd28bCxuQA447Si2qJkL98IXAEoxU9NBo4tbSP4mDs6ORjLqbkFZWEr
KdSxSQH/+uISZ21udmmBvwiITCAUcGeZzEFW3URnX2dFMwGZll1CG+oeHeZx
hwaauqbH2kb4c3PzHLZAwJqZHZ8YplPrmaSsqvSYpPLoqFgwGm9moaCsYKAl
5+Du6u6X2trX0T0pWFrhs5buPXu9s49tu4wscaxivRbFFZtvnj8D7NWdW7ce
3gEs8IPbN+4/fCwaF9x4/mHzzePnr1M3mAu0iakZ3tXrdx+RilF+GmrmTh5O
WipaphbIclJVZmxQoAc8JDHXXdsDElhFjAbBQ+zUTp008cQHZlY3k0cYK4sr
/GXhmpC1MM9bEIpSVj7gV9iTvO6ZockBwByXVuWWTHb0j9EE/PH+1t7psdYh
DhCBcrlzwC+aSx0bnRwktZah8yCBIejIsBAnzxAjK1mFy9pGuv7RCSGY/Ka+
kalZzvwCm7V89+mmxBxLqpM/8L57K1k98QaIjAEB37517/bt+w/v3rxx996D
x0Cs/Gzj7YuXjx49hD2nc4cpEzOCqzfuPqrJD3dSUrV0drNTU9K9rIdpbqzM
SYVZOAb55WEdAxAeMVnROFxaoJXWCRk7e5BffHl6+Sh1ZUnIXplfFMzMCTiA
HQL8MHAquXyOkMqb5I4NNvYP9RTXTJQOjXIAD93XNTA13No3wwMSPv68gMni
UwcplKZyTJZ3tL6Dq30ECGRu7GjmLH/J1trDBVXaklFC6qCICneLwhn2+oPn
H77HU9uJjyho2nE4kt0EgIDv3r59+9bte/duXb9+89ZdQMRPnrx4+fT5w/t3
rJ+OT3X3jMzMXwUcUlES2EhRyxPi76qvq6Rol9HcQCLmglRh0FBcGBzj458d
GFVfg3N2tVfStlZWc4uKBje3DHN4HMEin8elC3hsMS8AzOMDGROLzxCOUwdH
Jiik9uEUCmVuXsgfHOwb6W/ppgO5PJAWcOkMznhHV3dZjl28m/dFIytTmKOv
taG1O1RLLywyDppcP9xY3zVGm6RzFq5yx+lrjzZ2eMXzCBLeN+IVT+J4Qhxg
bTwRneCbN2/fvX1t7dq16zfvAIf48cazx08f3H9m9HhotL1rZGZBpM+ZUV56
l8xQyZHeetoXtEKKapsaamJdbMM9QpOTC4NdA0P9iG0VScFw+yuGqkf1NZGu
4BoClT7DWuCz+axJwI8CeatwfmFhTiAQCLkc3gyPOkUfp4619g5mDwwJASUe
m+js7m7vnuLzhHyBkDUxwRhrIrUVxF8OCzBVUDWw9bfzc7F3hie4+mArK+JL
mobGe8dmmJMTM3NXWX2UxYfPN3fkK67S7ExCink3JVuQAIsFWOi7QAR159ba
6tr6teu37gLx5caTJ49u3Xqn+6hvqLV7ZHp+9dqdR/8XIhzZAw==
     "], {{0, 179}, {240, 0}}, {0, 255},
     ColorFunction->GrayLevel],
    BoxForm`ImageTag["Byte", ColorSpace -> "Grayscale", Interleaving -> None],
    Selectable->False],
   BaseStyle->"ImageGraphics",
   ImageSize->Automatic,
   ImageSizeRaw->{240, 179},
   PlotRange->{{0, 240}, {0, 179}}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJy03AdU0+m2MPz7fuvc955zxoYioiD2ztgbvUnvKL2DCoIiHZEivfdeQ0sC
gZBeSA8QUiih996lSlVU9L4JgjrOzJmZc9a31yJDYmYtftn72c9+/snKCbvn
Bo//v//6r//y+DvvxsDWR8Hd3db3/t94dxR9PR/Z8f8JzftZ4v1EhwcH+vt6
e7g9f+bsYG9ppKeuKCNx+9rlS+fPnDpx4sTxY8fEvsbRnRAVFRXhheh2iHwX
R3hxeCeEeXHo0CH+f/h3j2zH1rO+u//lmYe2Qui7OPhDHPohtp4hKCh44Fvw
7vEf4/3CuxH85b/x7x/w8/FwdXNxdnR4ZG9rYfpAT+OezN3b1y9funDuzEke
l+f9Ft/cX5D/vvcL+Dvv1lOFfwD/6BX6IQ5+4Qr+yOV7D/6Wl/fj+uzJ44e2
VuZmpsaGD/S11ZXlJW5dvyJ+4fzZ0yePH/8979Et5l/1/vi8b7/vgIV/Af4T
3i3R/u0Q3ObyqQeFDv7Ky4v9j+ytLcxNDe8b6Oloa6mrKMpJ3b7B4547yyvn
48d/Kf6+rkV/I/6sd+uZv/D+NviPvV9A33m/PI33+EGhrdT/ymtuYnj/vp62
poa6qrKyoozk3VvXr4pfPHfmzOmTJ44d+1G84/5t8J/3fgH/UBO/KukfvT/G
jueXXqEtr9BveXnPeaCvw0urkoK8nIyUvPTdm9evXfn50oWzp0+fOsl3Hv8+
/n/2fn3+v+/dLoJ/4dXk5VVBTlri7l0JyVs3b1y7ellc/Dy/mnndih/bzm9g
Xj1v3fyiU287eH86vwmJ7T12SuiwiKiQkOiR/QdFhESOCB0U4ukOb3VmEdFD
J06IHjsmcvTIdw3rG/WbZ7/gbqFjB/ftFtx96LjQbkER3l8vLLBPbO/O+txx
7pj/xUvyFayqrKQgIyVx+9at27ev87Q/X7p44ezZM6f53pPb3l8k+E94hY6J
/EP4wq4zZ/fvET4sLComePDQqcMHBMR2vGJiIqLHRYVF/9B75JDA3v2HD4nt
F/j7voOie0UF9+4T2XfgEE+6td/s/y74mt/zCm4H36vIq+O7d3hlzIvLP4vz
9qGz/GI+deokP34A/0nvkUPnTu69cPjCKbGzl3hYIZHD+44eOCIo+tUrJChy
TOSI2B95Dx04KHRA6ODuQz8dFjv6E88oIPQPsX27jgjuF+Dd+cYVEOB7t3vz
d33tRy8fzNPe3irjyz9fvnTp4vlzZ06fPvkttsBf1X/Se3S/wLHjNoFBKakR
djLXLwofFBM8vOfkEeGvXuEjYqKiYn+Y38P/OCB2mIc8eFhwz66zF4R37znx
j4P7eIkU2McD89DbsU+A7//K/V0vf1/mNeQb169fvfKzuPilixd52y7Pe4Iv
3U4xfw2fPLkN/pPeAyf/IR8Fqyym0GoI4Djzc4IiwscERQ4e3vEeFzt1QlhE
TPCPvAd2ix7au3//KQGhIxqWYc8eXD0ovE9g35E9+7949/1lLw/Myy5v2V7h
r1sel+89c/qL9tQXMc976gv42J/1CgtKANuyfD3yIqNySwpy0vUvHxA4fEj4
az2fFBY7IXTk+B96BYWO/nO/2P/8JKIbWJ4LSQl+dPMfB4X2Ce/7Mb9/VM/f
Hhc8cIeX3is8rjgvtzzuOb6XH9+D+f/5K94jh4PwZY42z5xM7QMjwtNAmc4K
AkeETn2tZ9XTJ6+ePnr8yB95Dx0U/uno8X/8/ASIDzB57mfu4rhfUIjfm3jC
A995f+xXO/P1j95DvD2Kvwdd3mpU58+d53H59Xxmy/y999Rf8v7NghsT7G9l
Ya+nY+7g+SoIBEm/dmTvuf073mCVu+p3T4iJ/JFXaL+o4OHdJzIY/lYa1sr3
de+nXNi3V3CvwI/96sf96F97b968yh8xzvO0PO7ZM9sJPr2T5q+Ni7c/Hedj
j//o3fmzeS1I+JjInuM/QWOTgz1t/F2sVHX0rP0eZiSUxd85fPKw8MkLZ8+L
Cxl2BdjjXNWOnj0mfOn8tdOih48JCd89dkns0MEjpw4e4lX+XlGBIz8dEhU9
cuC04OFb5JIQe9V76hraD6wc7P+554DwP/f/VhwQ/DpefTs/7ZT0lxDilcAv
vV/A/8J77F95hY8JiYoeOvNfNrWeQXG59k/83TXl7Wx0nML9fUqyFY5evnhd
XUJL26F6gYJboaRbaJzQ8dDUv24ofeaiupFDrLTw5bNCAkfFju0ROyj2P7wX
76r4oWPHbIn+US8fyKrpKKuZmDlF3vrn/t0H/kPvrWtXLvOmjC0vH8xP8Vb8
6N06Dv8L74GTAscPHj0qTABFlCWFeni6v7C6Y2SvaGMXEOMPwj/XvPsEUUDI
Ry4uDA8sTw4z4E7ltJR4d1DYQy84rHHGW8f9/oUbt06dPCJwbL+wmKCBqpyo
shvLO9deS05GXc/AztfcKdv6/wr+4/B/4uUNVrf4QyTf+zXF2+Zfeb/O0L/n
FTwucPp/3FjusWCgq7+npYuv1m0zGy2r4OCgYEhL5iPIfOdsS+P4yNTC9Orq
bFvT6/42ZnU3m8kaHx2ZpeLbKoNTPa+fPLf7vMAFAclIe3eFl62pLu5mMsqq
ynoPnR/bPg51+0lo/8E/8v7qyPid985XLz++iLfQv+Hd3oN/1a++th2RI6IH
RcXzgzwTg/Kc7NyNbL2eS8s+NniqHxVp5Y8cyWH3tY4Nc0fGR5fHF8dnO/tG
JmbGp0bGZsf63nb3vOlbGm4bY4U+czbSvrX3Sl5efG7KRJKLjYmBvLKyuqWL
zT2rR499j+4R2fWfeO/yEnyd5730Bfwly18a9W95T/wrr9iBo4ePCAb4uQQn
Z0U6G3tYG+t7Prqt42JuYewf4AzgEBvg+JoGQncPfXi4t66/HkRZmVudHBsZ
7SCMkLtn0ZMDU2OLA+11VKSVSOYEA4cf5jqZ3re7p6hubGdrrKt9/6GVv8Tf
jvzjP/HyTwpbZ0Celz9w8MH8my870y+9x7Ymy1/vRzveo4Iih4XPAcwSA0MI
JUXRAeFPNa0DbLSdPK0M7OOjfJGcjsxXATn5dFIGd5xRhEmPgQ3Ovx0fa+sg
gOFR3CrQcO0Qe+H1SNfr1YTgN2tzfYNlcUbWzwzlrB2eP9aWVDTUNbN8bvDf
B/b+kfe7ueNXXsk7t25+834BX9waPH7Xe/T3vLwOLSKgEm3lEJ9VxWygoaoy
nHV8Mx6q+aR76tgHxydTpxBeT+LTi9F+8Pr8aExuBrxi5s14Tw2yiMnKHE2A
4hPra1d6WQ39w6zZTxuv1/AB/vqOhiqmz5zN70mrGVvd1zExt9mz5w/X77/y
8k6+d/he8Uvi4uLb6J165lX01mj1e/3q+/P6Vj3vPy4sau5o7ZWShOd0dHZx
G2LNLQMQT1UT4C8NHCL8M/q7sl3phGRsVA4DgGLjG1uaxxcm6wb7eyaGWjeK
ulE5GY3jrMrcBubA2sb6u/n4UHPbx6qmZja68nLKahq6Kup2Zhb/I/yLOXLn
lh8Hfye+P/JL371ze8srLv7lxHDx4qUL/6ZX5OhBkX2+jyye+OUyGpijY3X9
BBsbBxw12Dy26Ym8n+vzsg52+lA9uK4S00xpH+tfWZxZXl4bXFhd//xm9V3X
Qms5AIKGpOdAawffbXzqx718YfTM0UJfz9HsnomJ12OFew9tnige2C34e95v
54Lf90p9qefLP/ODD+Z7L5zf6dB/yctrWKJ7Q61sAnxAtXR4ZzMW35qoZBtW
XxdqX0O1s39kF1w/Xtbb0dTX3j7UMzk9ufn2/ef1z6vvPmxuvPv0ZnVuoakG
nJGVjson93z8uImOjbU1N3F88CLR0FrXwdpQT93Rz81KR2D/3t/zfndV9hfx
vVeSf/rlH5B44stb4EuXtvvV2b+c30Oihw/5WD3xfR4PwdMGeuszcJ1uynaV
3e3Ozu359sbWLqghXFXHdFNNfQ+3nlP9Znh2Y/rDh08fZ5pX1tYWe6bHB+nA
oqq+Cnznx49T8WGhWurPrYFFj82czZ3c78rYh3s81LHbe2DX73l/zPNve2/w
r21c5Yv5x6RLl/jenQT/Ne9hEdGDQqEeLu6BUUWkwfGFiUp/ZPfdBzGNc7ig
CFSBi6FFNKsX1TGGTa+ow5ShISPsjqnWibmldUoJu2+uk8pqpzOIqJElHGXs
4wrW46WRna09Ndv+8eNX9rr6z6PDvcyULa32//3A73kFtuOHa7C/mD8lbm15
+Sm+cnUbfHErwef+slfo7P7DP2WnuAVkg7C1k/0LE8NeKr35EtrItvFuy0pO
8XOjh6BhVk8nB4DlUuEMWktN52xXfx36dRmgtH6omUAlZxI5lNk5RMP8WmeC
g52FT1wVIMonLSooCfIkMC7huYWdu/V//yT0R97f7N87Xl49X712/Tr/0H+N
f5mD7734JcF/ef2eFDi5K7woMCC6klo/NjY/uU6QfTnkruJb2TgbnkupLjA3
i6nqGxiYbR6cnu4Yn+runduYnYH7djdyWO1LM92d1aDmweqWNkTn4ATE3cHS
F1KLxmDri9paGU/U0lDZAQGx/ur/R2jfN9+/7b3x1Sv+1Xvur3pPHDhyQdio
MCHas5TAbB/pmxidDzoXM+59H1A9Qk+mtaJNbMOTpobm5maWlz6/Wfn4dnPz
w8pHvAtxcWK59ePa9HxH69oiFU4kdlV3Rtk+fUagoxtI8K6RvhjH04VYDOVV
XmjIgX37f/qj9fsvvbwB+uZWSV+/ztdevnzpwsXzFy5dOH3y9Nljpy+dPnpM
7MTxCyfOHztz6uy542KnT4ieOHZURPQob87g/fD2IFFhscOHjxwSOSYsJnzs
zFU1Wn6yTwGc3d7ZMbEy0/LoJmgx4wV3ZAGPRxK9nwWG0RdbB8cWV1Y3335Y
31z4sLbcV0Bo2Hw/v8luGHk98e5NB62lAz+CDPN1jKfiKTQcrhr1UvWKC6aJ
DAmOSbba9c//FtzJ4759+34znb+X5wM/eG/w2tbVK+IXxHlN+uK5cxfOi504
d+rkuXOnT185K37q0qXjp0+dvnBaVOzksaNivJOw2PabmsIiwiKih0WOCh8/
efSkhCmFhiooqWE2DE6vjUy86XGShI9Q0cz5EWp6UVhEYA6EDi3NY/f1M9/P
9S10Li4PjQy0sqbX3rTlZk6hFjenW9dnRodmiLmBzmRCa2oCsZETq/KzdCe+
gpSYRaj4vwKH9u7a9y3+spd3Xri54+X3rCu8o5I4/9LO2XMXxU+fPX/67M+8
F+DOlZuXbt2+dFX84pULx46e4s2UYmKi/AusRw7zbg4JHxE5IiwsLHpOREzm
KaqzkwPvrG+Y3pieX1yegPo8JzR2cGYmEYlRAEBc6qtw4EuN4LR892EapzGZ
+/Ht3Mxi98D626KikqoX8G7K7PuF1wuv63MigYVIFIDc3AyRkbqHh+A7kCRS
s8H/4Y0be3dixyvwJ4PvvcO/wLHt5e3AfPDPVy9duMTL8c9Xrty6fuGyhLSc
oo6KppKOvorS7at3bl04df7cmZPHj4vx38HlOQ+LCvOvXR0+JCpy4dQFpSjc
QG8Dmt3UPfduaXBhvb6amQqC9SHHplCJz7Jikn3cbDNcLhmZPVMqDgJXBQ2s
f1pa3Fx+vb6WxqqKeBkFqtuAImdHF0i1VdCcGt9EMrLE7pZsL5dQnpwNJob+
15k9/9y3/z/x3r75zXv5ytWtrfjW1SvXb964cfO2nLqShKrdczePQG9/r+BQ
l0f6avq6kpeu3rz58/mzJ8VEDx8RFTkkLHr0uIjISVHhk8fEb0hplzRMDDGI
0MbpubnVjnczgwNl5Tgch9DdBPPSfGLzzCbQ8eEjSRNdW5WHRrDq/M3RhYml
9fcbb0aLZhhYPNiXBNd82RvcDybgi6BpRjpOQaGqDgMDMBS6qBDkeeRvB3Yf
2bXnP/He4sN2vFf5NX3tGs97U0pWXknLwvmhuUcusqIcA8XCCcSK4tjAkBcm
cjIqatJXzp8SOyV65Ngx3vI9euKwyDmxgyeP3ZTXsizlTn4aaS1vW5kbn5xZ
mFhdrAyAsotpFbHJNhJqhtJKTwPv66jf17A0eeAwPFb3gUCumSbUTjdlpSzP
Ts+2AgF+Jzx8gmPMQL6RFbIKd9Qt4yPTgXACvT6PnSj2P4f/fkDw1959P8SO
78fH+V4e95v32q07d+5KySjLy6oYWDxy9okvzIorrutoqm+p72zp6e5qoyEx
FQk+T7y87dQlrpy/cvr42Qunjh0/df7Y6dsXj5wVN7R5HlFIHPm01IRrX5id
nJ/o2Pw00x9RBLZx83J+/lBN2fj29XuuNkr6ymavouLLZt6NkyIzSPMFIbXI
+0+QDdSxuXUGWuPFE38TU08zkLm4hLyybklxPrgXTUXX9MT/X5FdBw78z16B
H2h/yXvjO+/129IK91S19B5aWTzyCk/LB+Cb6jC0ts6O5g5uf9dQX29fUx23
pRpTCIMmuxiqykr+fO7ydfGzZ6/evnxLQ/rcNZWQmNyqEshwRw8Eyxmefj05
vvJ29dMq8rmTjbKLg/oTGxU1fZnrKibqlppRtQ29owtLdTbBtMGxoTAG09jO
xjmFPNA7MhwfnmWkZW/tEnT4yg1ZGS+yiTMDRifiCqpST+wR/ds/BA7s/s7z
l723paQlJKV4U+WtuxKycsp6xlZO3imJSRlFlYSamiYWg9vEbuvrbOvs7elo
aetqrGY1NXDamshoWPwzZ707txS1ZS9IyOspqdk/UHF4CSpPryS0MzN9U7Hs
zsEPq/Orn98vbWL1NWxcrV0M9ZxddG3l1S+r2DzNI8yszswPop1s/KY/jIy0
kzZgbi7WT7yCigmLjN5SUzlrfYszV2RuS1lHWmu60wLRbfiklAxRgX0H9u4V
2L2142y5eDdfCpv/694ffV9j6zlf1rmEnLKqtoaynIy8iobufSsXv6hMEJVK
pZCptRxmZwuzvr6+o7WJU9/YwKqtZlIx2CpiTXNzXQ2LUFrmYmVhaaUnr29o
bvQk0u9ZBLo2H0gkt2Q+fw5q6hoeW9xY+/T5zeImUkNDNyA/9b7yI6Clv5uW
vOyD7KbJjU+L3Q5+TvavZjanX/cPbc51oIjeL22MU1o+NHd5PLBQkLl6R/aG
h1WQgamfk1xpI604OuyU0P4De/Yc2L+Tu3/Hq2lg9dj16SNbG7vHT7xeRqQV
QLD0em5rE6uWwWroamawuY2N7Do67xUg4NB4ZHkZGF7DYFdT2Q11jKK02KBg
Pyd3T1evVERFYRkdlVhKphebWbphB/qnl5dXV5Ynh0Z6vBR19AKhWN+7BqmB
fl7P9RX0auZ4p8DebFUdE3/43OZm/8DKu83NwQVqdYSVGbhzdbk554GMvKqs
dJmXhre7haW0jllbW5F72u3jQoJ7du8X3HH+O16PgOjk/MyU5OTEhIRMQBkK
T6TWNrd3tDbWc9jNbQ11zT1cColEwGHxODQcUVFWCoQzWU1sOrO5iVlPqsgr
rcxMTonPqKSz6FhSXlZhVb2n6ZMA8sTY4qeNlQVqWDyUkW2tb+wfVQox0XOI
ddL1f6zh2Le6vtpRoulo7lg4MLf6qa/349LS+/X3iz39AZllWestm1RzMxMT
p4Qc20epfs4SGhI275sAUQ91xIUE9+3+4tr7b3rBSAKJioaAQUWFhQAIjs6s
b+QO9HU0cti1JE5Tc2NTCxMNroDBkHgSEYOqKIdV4jhNra1sVnMjtZFFgRFZ
mApwaSUSz6ypgGcnxiGqnTz8ovGTi2uf1pbfIXS0noJZJZ6OoX7BoFjvFy8f
Klk9eQhY2RhoDXKVep5ZBm+febMxh/o4xVrf/NhDImMHO3MBnIUGeM4jg6ik
x84gAFJXR/NyKYFSGGVofZU3Ewrs2/2f5Le+ra25ujInNSUlIy8fgqezWzq7
Bnu5jBoGDYunNnCqUIiytIKycgSpppZGw2OIZFpDa1snt45JhyEozCpiLYEE
hUGBQBQ8OyzeO4GCDvZJzYO2TC2+Xx3sA5kamvsXNpILYiI9A8OyotxNdSx1
Czo/jBSlKDj7A7o5IOLUwtvNoI+9OfNvl0sTTRYY6PpoJKTtPTPY6pGqJRbZ
m2Frftcq1acs2svf9udd+4T4bw7+B/2qra2JhcmPDImITQOA4VWUWm5XT39/
O5vV1FhXCcHgQYCSoiwwEo2vYbOYDQwKvaaG1d7c1cGsIZdnIxhEAgVNBBVm
JGfkpMW6+MfAuPj8l4VYBLV34s1sVehDHRP7gAhoQ1thqp+jfWiAwwM9b3v2
+BjINcoRUNu5TEyDTU+/2wyYnoyp/zBX/Ey/P8htqjrmCaYTXxiuI+NCet0U
4PdAy9k2xt0tysHq4k/7hQT2H9y6YrGz4/xFbwODjINlR0anZJdUIqsolNqW
/uG2rjZWLaeBhc4HlBUXgQtLcXQandXAruWyySQKiUKpquVQiFWlaWVkAoUO
R+TFvwpNiA4O835aTiAhc/yy6uiMwbHRtixFeW0tE9/nXml9jDxfZ3vjUG07
7RcQRhv1hSuJ3T3QuASLAs2Pzi/EMpbDMj9OtqW9qL4UhaYS/YGp+SUZVpLA
Nlg1xEc1MNRMU8E13NLi4h5B3nh1cOcazb/jJZZlp8SnxkblI+BleEpdQ3Nb
R2c7t5FJZzcxqZXACgwGhaGSalh1jR1tXAYdU4ogVKKgZTAcDgEBwuhsBg2Z
ExYa7OvuFxHumUZm4cqB2TlUDndimM3wlNBR0zZyCDHyBXTW5AHj7Z6pm1uG
z0X5uPmTJ19PZ+EmxlxRo+NrC3ns95FhK8uvR7gA3RcW7i3DlS4m7tnaz0uL
IgppboDUJypKhpqKjvcvHzywfx+/nPmIb3PGV/e3OXPv3j38+HJn3/b/w/8B
pYQHhSSnZ5VXYeE4Gqe5hTdacNm80wmSVEXAYMkUAqmGTmPWM1mN7Po6OgYM
KgMBcvOAcDyRCEczO5vJJTE+QUE+nn7+PmHg5p5qODALhEeCykogzEp3vXu6
toYWYU9elrE6W7MSwvXMLcomDWxfQKc+DtKCgZw3yW2DvPVbSXgfEvXx3dq7
WfpTXclHsxM9JXoBmk7WLg+9Swjxbs5quoZqKgoyRrcP7eb//b/2/hK88/hv
eaN9njm9SAXDyTUUYk19W3tzU3NHR0MNqgiIRBModRwGldHC35nqmbXE+gYG
EV6YU5iWmpZVhKCyqcTGsV5ibkRQSmpYYGhcBolWSygvh0NKi8IcTLUswgrL
Y90f+j+x9vCOzqc1tzhnlD3UNSqA38qomnu/wi1KxDMWqsYn3n/cwCE+hgQt
Tc5/fD+ZKy/+YgDzejLHQV/HQ17Bg1FmkxDt+sxYRlVb/b7C6QOHhPmf3Pgt
7y8yvPURlm/2b14/58cOXplIMqOOXt3AbW3hNnFb+7k1GHBFFYlKr2XQaeyO
zua2rtZ6Gqy6jkrEFSXnFBYXAYoRtS1MAnOgFZWfHp4FSIsKSceyKVUEMg2e
mpSelhL1SEXJPA5YGp+clRpCbBsYLCkztK18pf/kVVLC0ObmJJ4YEAmH1bIH
1zfftFVAPqbEdiyOrK6/pVlfDo8KGlubIShoyjlL+nGr4AWefk+11JVvyMvJ
iQsfOrhn1473+7Pej0uW/9g2V+B770tXN+/QQhy1traGVc9msptaeR2bt+8g
qmpr6QQ0mlDd2NFVX9/axqWWQqCl5QhAXDIERagi1rX2sPEEBrEMBAkLiYwP
cQ8qrCwBoWi04hfuQfFZ2eEP9TTVXDMLAXR6ZcPU9GTUs8dqCdG2L4xSJlY+
z5A8inUMwxKgja83Po8MULEfoWXopfGlmfcdWXecDCzZDYtzUGl1E+0MTFMT
Ij87zN5S+7qMtJLkmUMH9u390buzP/3QovbsnBi/9/r7h8UVo8m0OnZDezOn
lsGpZ1ZjKyrxZN74TMFUwkns1g4unVJXzyGWpKWn5YKKsjKBGEZjW29/D5eM
QZWXo7CFvs5enu7BSQUZ6bklFYDQR7amutqG1vZOxk6uaVW9bAh+rr2n4mmY
reML15cGuA+fe8GR0pHqZmmgxsaNoc+vJ5po7+pbylt7xzhzYx1OplqpL1UH
ZuZkH+i9cn7eVkinpwTYKikpySkoKl0X2nfwN7z7f5Figa1+tXv3Tp6/98ak
FlaQ6CRCbUNzT2cLb5WSEaXgEjitpraWQiCSqzmtvOVMIZDJJHheYnxKVgEU
i0RQOM3dw4OdjTR0WSmGCC/zcXR3D89Ni4pMzgeVpnqa6WqoKSjqmDyPzo0C
szFgx+CaWmLR82e888VjT+eu5U/pDx9dfGIRDsYyYKOIxUUuh7ravdrNZjRl
1Q1MQ40SK/RuPG4HS2nq33cJToitS/Hx9378xFpbUVJd5dSRY3t+w/vr2t4p
5h+8ACiFU0NFQgmM+raW5iZONQacX1CEZtQQsZWE2uau7i7ePlRNJqBgoIyk
+PTsXEw9s7G1lds+ONhRTYAWAgmEotDHbsEvU8sSnjm6BieleGtr3b6tqq6s
bWQRW1ndXf3Yx94xbrQpzM/O1UtTSd+oDN2rKfVIQs8k2jc2OAgZWzc8Md26
yln7wCTXugPqWlmqyIkHWpq2+lfV9J96vcrNfOwXHRsU+8pQ01DtkZu2ouKZ
He9vXZPcWrfb/7rv6/n4m5fQyGXQMJUoXituZNPxCHBebkEmpLqeDKmkdvd0
tXfyzkg0Eh6PR5UVlBeDoZX4hq7O0fGuRm5zIw1BIMHI9LznzgHphcB0L+8X
PvHRcY5qctKKKqr6ZsYehTkVzcRYO4/Q9NZOctoTbScLJYU7djo+2jKmClY2
3qaBpg4vYyhvP3zmLla//TRNZiPLYV6Jtl0spI+J4oWrtxQsvLA9eAcTXbOk
xGcu1uZmjz0SWX5Ch3ib8L49/K2Jt0b37T/w1bMdO/PH9/nfeU2Y7Y0UZCWM
xOY2NdbXVFUWpCSlAeEkKgZWxeoeGulvqUWDS8sr4bByMLAYQmFXVzf3TIz0
d7ewKDgSnNxQz6Wmhb2KyQfmBDsEhGUWJdppaKgrKGnomtmau6Eqw176+gak
kVg9HHqOla6aqvzdW5IK9/StJO2cHUxMNa2dn1QMfFpfH1lmrWyujVevkpPt
bVSBrb0MlIbUyWuKZqjxoSqMr5FrWHioq4evXxaERA69y5ughYT279v/pWa3
8velar/l93e93A42HlaJrWttq2dQqtCV4MIiUBWvfBFETlt7/3A3C19WgMRg
oIXZ2fnlkKr61q6e9sH+wX4OqhyJQNC5HGJRWEJGISjTx/5xUGhaepaFrKSs
iqGZoa1/XBU+w8HU0CaePrs019lRamusIKsoc0pCPVTJyyfWJchYR9nczrt3
Y31zfmW5dubjxkb/2/FSSy2JF+mcydnXRhdPnjEoWhudH04x09fSex5akBaW
B0QRQRIC+wQO8JJ6YGuf/XpZ57ve/IP3++A2VmMRaHJ9M6sKDioBQTEEEplK
w8NxDb19XR3c2iokrBKJrCzJzi6GYqCoau7A+GBvT087vRxYTqwfGqwtB0KQ
ZSlBz3S1nhj5Rrg+Uryrqqn8wCcbSyN0pdrqWpgYxo4ur20uTsFcDQyk5O6d
DQ2vQNAroDkeOvdsVJ7glt8ub06/Xapo6Z19vzHxsc9LQVbbtKtvfjLa/s4d
OQT3w7venKcKvP3XwdHU0TMOgYgQE+Eld88uXqP+Usdf5+fvBqzf9zKqEFB0
dVN9FTArNS2njFBDxZVCK2H03pFeXuqhZWWQCjCwMCczFwzHkjjNTV3T86Pt
DAqVVFmA5Qy0I/PLq5vzLRXuySrbukb4uDxz1NI2MnGJKaT0z2a7musZW7ki
FpeW30/1Fnncf6ggp+w9NlbSuTDZUv1CT85SO3JgvuNNf8/yamIFsOXd9Py7
17l6t8SfVn0Yy1miKotfyRtcmR0l+6lY2OroSSjYajhEe93XvXTqiJAgr6a3
VqzAvi/z1C8H6N/1dtdhoOVYZnMdPDclLjkPXs0kQGIzStCcgT4uCVZcVFKc
n5WekZGZU1yBqmZ3jwyNjg80M6owFGYtids53I4uReAynWWvSUirmLoBSczi
UNun3k7eGXAcNOexqZXNfZ3w0ZUPH6foxHgnU0uF29cZ7z73oVifPnF8jeQs
knJQAwgakj27EZPkXzVG43D7MGU/SyihuuBj85OP78joT40vL75+pa39+IWF
lqy60ctHtgaKircunDx6aP+XDr2V2B/HyV96v5+5RppIKAypllaZnZScmAev
4TZUAeNyKqtbO9lVBdk5oPKi5HBvv5D4PERde09H38Tc0lQzFY+uojHbBrub
uNTc5HhvbVlJOUkJFQPHJEJrEybU0ti1iAaLcjAw0lIz1NJMmXz36dMwBhXp
bKSjdu0ma2L4w2gx+nPXfSnjoLqKVBYwncCdfFua7lXCwUDwqKqBR+JqcaDo
cEwppTjWK3V0/k1PlMPDgCxf80eqRibyFs8ePDeVu3zm6MGtz0DzY2uQ4k0Y
v7d+v/eOd9aRqVQ8OD4gKDYLWtvW2YAGFEFprd3cKnB2dhEMURDh7eMbEJJY
Vtc3OT41PbWwONaEKSdyGloHR5qbqhLCA01UbtyUuH77nqphILSyhoX0NLV9
EeZqev++rpWWkoYraWhzbW2SQUvwsbN5puNIed87zI7I47RZXn9VwuAgsKDC
kZHRJQ7kVQaTxiEHopFECamnKCtDpbLp5iWCCXxxvTjOJTC9Ah9n9UBTincQ
CS4INJQUP3X0iOCBrS12/1/xNtdzWK00cEpEaGxaMYFazUIWIun1nb3ttUgg
L0oK0kI83Nx9IzPLa7vHJybGBnq6OjubEAD84GTPeGNpKhgTo61wW/KupJKa
qWUqEoEuRmS+dDLS1DYwNtHXVrir4o2bWHvz+W1vfbWXGnoGz6bnF+b6m8bA
/OyMxsYqB4vzg3GdU1PdrwnoXMJHen+mg89s4V3rmPsK5xOXFic+S/l/XMX5
A9Iru+eRFqpaUubqdoGwPH9T+Vs/nzpx+IAAbwfev/eH+Obc3o+2Fzf/9wZa
NYdFAGUkpoPxWBaTRi4rrOKNzA1UTAWoHJiblhDh5+blFZhSRmzoHhge6W9j
0SnEOgYGze5qq63IA6R76kpKS6sqKelZeiZXUKtRKV4h8YHuT6201PSNjI0e
WATiJzc+Ly+8ZpS+Sun5vDhbG+zq/sTEP1vDmPZ+nVQSXhTPGJpvGWlj4skV
E51rMAN7dp33LelHUsZqsOn/fWeb+HmmzLu4gto+w3ipIyElp66EY9fRwS8M
pC6dFBHcL7Bnj8DveXeSu+3d0teTq1sp8Pz4yCQwsa6pGgHOKqC19vdUQ8Fl
ZXhofkpsWMALn5dRQHr74Ojk9ORgSx2NQiJWUwnMehwoA4AEPNG6r6BiZGzj
HZpWhK9vb+O4GTm42Ovcfx7gZWV038TGM5fePP+/n4aaWbCxhXfvl9v95dW0
DXzSpeQnNjaKIwtJuJbZgerqpppqWiEN29/ppBU6Wq8i9VhOyqKwZ+N9M3L2
baIXAIjjrs+42imZyV0HTI6OjdP9NO5cOCkiJLifN2f9GDv1++WKz9Z1zK+P
cjlNHRRYbkJsWim+jl6ekZhQzGgb7CIUFZZVVGNL89ITYqLC4woI7ePT06ND
3Y10EonaUctqZDTUw3JyQPACXxsLFTXTx2FlKGIdp6V9eAXmYPzQVNOL1sfK
e2FhZm3vFl7Fnn632lOOX9/YeNfXDbDSVtZ7EaCv0be+4lQwOjgzMFVPhFMr
cVUgKgAxiza3x0y4nXNVVvRkDy6Pzw3Nop5HU2taJ9+PNpdYn5VKHuyfme4D
mt69fvr4kYN8755/4eWPnHsE9n3zNne1MctyEhKywFgatSIlIi4b1dTSzoLm
AiAwPCQ3NSE2Lim3lMgdmJiaGOjm1hJxVcTu1rFxBqGGUokhINKeP1BVUTF2
iMHWD8z2T795PdYVdl9PzzG/bWq0Nu2Jpbmxtcuz4s61z6F3etaXFzcm1sbw
7vdtozWlrhV8mjFiLC29nx4mFFNB2Rm0gmpiKa3d6xHu7eMb1xSjOlpYrye6
liafp9W8nl5e25h4Xaek4F0UgRkabUwyUpU7JybM61h/4OVxd29zt/pWfTuz
MjkqPBmEq2bhC2ITi3DszuY6VDEAWA7NjfX39noREl+E5vSM8lpzf1czh8Fb
vgxW/2BVARiBotahQh/IK2lrmVk5x8E6xkdXVl6Pz8aqqz/wgvS8WelFxfk8
NjZ3sg1GTHyy3A9YX1tc6WkbGU2zMvK/dV2y4hPHYZA7Nz8+nRZTjk2IQwCg
fciI1kDXD2skkXNajVPogbX58bE8c+rkwuLGm9UPo0NPLWykbFD17YRQW2Pl
y8cPCx4Q+A3vt3X85cLdvu2RhP8Yg4HKTYpLKkDXNDQjc1JBlJbujhpYfj64
tCAzxMPRwcnFL7oI2zgw8XpqrJ5BpdbU1dBoRDoTnZlaWEYg59hJ3VHS1Xhg
oGvpV9o9NtlaPzwMUZFVdizqfLO+OcZE5QR5eL6IhU5PS53Vhw6ujuMiAfie
Si8H+ZOXUeuFtuP5pN6m3tCsZFZ6bgo4oxsS0+eZu/mJIXgrqyCqfKG3sKjY
QKN0bGbl88rs6vzUiJm8uql3dSspPeih/PWzxw4JCuz+fe/XfH/pVlt9vBoP
yggPj8uDEWs50OxcXPNAX1Nlekx2RUnsC++nDs/cPAOiIeTWofHx/rZqAgpX
y21vY1dTa3A5mTACtzZaV0JaXumukpqajk14bdfMVCOjhBBmqJ/MHZ3/NN3D
bW2hlefHRznVf9KUui4VUkFsReT5+RVHOXtcOVO5mSTf6+vfSkLmkkEoCDA2
NZgYkddxn/Vp0+uQjaENmhJoqn5bTs6jcH5mZGVt7d36aJGV3FmFDOZoPwvn
L39b/NSRgwK7d/2hd+933orijCAP39jMYjK7Kj8dSO3pwGHTkhOT4oNdH1ra
Ork+fRqYgWP28jYiLrcChsJTGA3NDR2tzc3kShynn6J9R05C4q60ip6+rvFD
AHV6sYdVERLpHVA3urT2YXZycHFteqwb8NC65iP6ury8rJqFU15xurGe/8tH
FtecN8naWHc3Zl0YhA4oSUqAZ0Mycl68tmvZHBXRfKhq8srRVvn2bfH77MiV
ybdLG0vvZweLHOT2UOcHR8Zbyi2Vb105Iyp8UGArfbxVykv0dvy4jr9n87Lr
5ekfV4Bh1kAziqp7pzp4E2RSSlqszyNL58eOHgERmWW1LUPjA030KjiKN0Zy
O3u7BwaGh+rQpDp2nrmi4h0lLR1DSysrJ98kWOfs6+Z0k4evIot7Pq5ufuSd
bN+M9je4PbDvWpmKU5e4q25oExAUGhViYOaqpyfd+vF5jt2LVuKruImQxJRI
ci2bkxbdGdK26qho+kA/OhPyKtjM8EXFaPnYRO/0+9W5151MgKQMuZm7OE9+
paVw9cZ5scNCAlu+P+0tS3zh5hELIjVxkICSqs7eDlpeZmJSTkl2kIuT0yNH
r4hsRG334PjEQCMZBUVW0dmtvUOv5+bmp7hUBrMhxVHmxpV7aqoaeg8sPWOQ
tc3doy15z+1csF3T7z+sLW3Mj3fSwGHP3L1Hhod4J367QDg8MYXZVRfgqqVt
oEaZqgwsy6EWRhcTIpOAhbkwFiuygpg9XK0lYeNf0srtQiJg5QRsdjJyeHlu
Y+nt0uREurg7u2FkhF7s+UBF8o74iSNC+7adf9ILT/DyDQXTGxpxJWBq8wCn
CpKaFp8EgJXGv/R2eubpH5GFaxkdHx/uaqihYqooNezmnuGlteXx7hZu60Bz
oNaVK9LyKvdUtA0fhxczB0fa6wpdjbQNmz+svv384cNqXysHneVp5xLfDs2A
tPSW19YjMM39Pb1NpKf6koqRVcwqeGVeYUHaYCAsH5QSSMyObcgHtFkr3I/q
n65jVXyex4cl5wTBs7Inxz7Mv3u7NBOhGULump6mlzhoKKlLXD555ODeXbu+
aP+cFxbvHwUksZgUCKSG2zfMQAITEqLjcqEV6UG+LwNCo5OLqhpHxscHW1m1
NSw2h81qaO0emxtnk7nDQ+NlmmelFe/LK6toPTB3DAU0DLShM3weOj4I6Bl/
+2nt89uhKigwOy8TmsZhBCZRMIFGZZ8HkARM23xDA+elnKxFWkVLcgEiCgrA
J1MKKxKiyPH59QFVSRI3MNCF1hxY7ufPYUpmuXWzrOyeudWVN8uzrzEujxPZ
HTMckOdTSxWpK1+8u7fjT63f+OhsfA23nYnCNnZ3t2LA+XGJEQkAOLo0Mz4s
LDoLSuU0jUxOj7YzqSROQ30dlUSh1zXUwSD1EyM4VzlJExVVKVklbSNTK/fI
AkoHFxnlZOcWyZ3/8Gl1pZ8DTgv2jsvPBi0N47GVkQ/vum2OV6AQnfPAiqH2
2/dtTVKbE/IhkWDMIzi2vCIZUJlRBHEdU74U11KKQWTnVk99Vrv7krOyvkpB
rM19WlpZW6zXUPFCD401UEHxT9Vkr58W4Xl379om/xlvZkRSIYXRN8Yqh9e0
ccjFmalRybzdCINDleYnpRdh6nsH+waGBnu4NQQMpbquhohGospBYFA5s6c5
ytbY1ED6mqSKxgNLu2cRhczWfmaqo7GBjQ99c/3dxuJgO7YgNjS9IAjaMzLR
xaCTLSTefS6LLijHgYHcz1YPLNUDloILfBk5yblF+KwERHZBellmRK/o6Rkc
sKgMwDteTB5SZ356t75aZDG6+nltY2OFpnfPkbSwODeIdrMyvXfnvNgh3vr9
6Qt4z5/xRvrF5dSyhvohMQVUBhlbnJMSGpcCwqAqwHnJYAyra2h8YrydP1YR
MXA8jV3PoBAIgPhUMKqGQ455bq17VeaGsqbWfQvHV2DO+NQsK1BHRdWKPPlu
5e3MTG8TKC48HpBjE4eamn2/2TUBECleHMGklmTS8ns3Zp86mpq1FcXGd2QC
0iF1KQkl6bB0ajEQvNfzA7u0Mh/CffvZ8iLh09s3A+9Qjrzx+fPG2FJThaFO
y/DEUE1lyAtrdSnxE8K8Dfinn/68NyYiE8Jtb6XFvywiNBBLsxOjIiILIbDS
7OSU9HxC9ySvF89MdjOwSAyRQq1hNnc1MZvIqLQqBhuXH+X1QOHePVlZOV1T
cw9w59ybufmxjhgLQ6200cX3G+8nBzpzn7i/Cs8Jxrcuvn2/8Glp0+jc4GIv
DgZGNI/+7//2hNhqV3A8htJzQZlA3qubXobMAYGIUcKtq3MtHFbf6mfc3/I+
vV0falybzC2aWluemV17Z3/RKKmtgVGV42VtoSpz7ZyowK6vsXs3/2fP3p33
QXeMW6/F9u+BEQA0t6saEBiBqqVgIAWJIREp2cWlBUmRUfEgCm9CnBobGO7j
kqCVlKbaGmoNm06g4WtR7KbmykB7e0MlqTtSatpaD5yiy5smP79582aqPBuW
UsjoW1taX23HeBvYegQkFQwtr8yvz779NLYoq8cbsBu6W5b/9+2bT/FmEmWU
DAiQAU7AphUkIIpRSGxeZebBkU/rmwMfNxZLz9mtLmz2phAG38fGdYzObXyY
HFS7pRbfTsn2sdJXV5a9ffnCSd4M/cfeb0n3SYDSO0dICVHg+iYqtBhYmBIT
n5efkxAanlGKZvaOjg21M3EYaEFWIa6ejIWAwICsQkBFCQKLy/UyNdNVlJeR
Uzcxc8tjjcwujM1/mq158SQwEVA/s9mLSXe20NK4b+Xyqnhwob+GRm58s7nZ
aXIFuzrz7sO7t+8335N01dB4YhyytgCfDkAUFAPLkfj8StjB6Q8fF4basA7X
Xgx92mhPtCSufsx52DszxWtZdUoyWmWDTaUvTHVUZCRviJ/nFfTeH707tbzj
/b7GQ4oo3J4RbEpxdSsTD8oHlSSHRyQlRPp7vEwpo3IHx0Z7meiS7MSkvEoi
vZpQBshNTSnAIyHQwmhXO1trfSV5OSU9szAYtbZ5cHzmzVILMdZBzTqEufAG
HfpI9pakgqpNSEoQro0cbm0fUdH/ZrPOXtG5FNg3M7o8+2lCxa0KikoorsRS
0kJboDkl5XBsGbRGZWpzPVNBRUU++MPmeE1uwAPUyqf8JGzH4tzyGkDtjkHV
9OsOiJ+lpsJN8dPHjuzf9c/f8G5drvqt9ZuF4w50cYtS4Mx6ahmwpDD+ZVBa
cnJiVIBveFp1y9DYcCcdWgHIyIeTSFgSDlKYlwlAMuh1xJIAS10zW2PFmzdU
bN3CM/NBeGZTTze3IOSR2T0tX9bcYPoTYzVJSTlNt7iwWL/HVs+8fV/41rFn
1/sS7isrG8uEfe5/89anpAZZnltUw8DmheEqSwsIFAqmhJnVM/npys/qVQPr
cy21JNhjJ/LGcsFN6FTjGy7N+qqsx/jc7Ag95ZGG/JXT/OvQe/f92rvv65v+
P3qhjK7RXnJKVhW7gQ4rBaRGhKZDQfmpcaEhiYX05oHBrgZSRRkIjKBUk9Bg
UH4O76RIQhGYFYB4T2tjY3UpSXld+2d2j19lgrGMzuF5kudtCUUDwOLaVFWE
3t3b0rKqT4J9glLSnxqburjFxVNmOWPL3WxrOSmXza7N5dqaBjqGt+cxafkZ
GZDMMiqBRC4lVLfNvLtz3J87OtmBYg8RXOGTnwYljKoyYEWljBQtI5+2uenR
NlS4hbKU+NGD+/fu+VU971yL3Pdd7HgJjV0DjRXJkLoGFrIoKzY0MgOChWaF
+HgH56Dr2gc6mER4aTEQSmLX0zHAotyC8kp0TXlRaURUuKe9kY6MpLq+rr6W
uUeQr18Rd7xvpCbpgdxF7dzXiwsdUHcZidvXb+u7+tulNTc3UsmgwhjYVDX3
fWe0gbrqnfm1lcFOZg0BDsZiGtDISERRGgyDIpGQEBqtfzPgmg2no7UX3VqX
xZlfmZeJK3B8/jgLOQ64dtOH3TM01ErK8XigfvfMEcE9/N3ot72/uGi37aVy
W9uQGYnYeiY+2dM/wPtFLBCDyAl96R9dTGzqG2yqqgAW5GTmwWoYyPwSQCYA
hkSSXtk5Wz53MNJX07inqK6mqGxg89TVP581Md1VD3hpZXBV3AS1sFD4zFT2
+s+35e8pyikap5AnZ5dGOjmI/qHavvq6IgO1e+/ezg8wW2rxlXQ0EYstzEJg
EGAYnYOEF1dXcubHNOwrsfXdEMZgSd/88pPLvo73tc2eJs5mS59/VVbFYcMy
Ij0s1O6eFT3ES/BveL9chv0evO3l9HcSsiIBDBYqL/Kll7OdYxAACcnNyCrC
czu6eVMmsACQBymFU2mwwry8/PSiCmB2iIWhwQNDPQ1VdVX5u9duyGkaGFm7
RkM4Q1Pj3FcaalKSN1SeIrryNK7flJOTlOU9RUJaWbl0YXVtgVNeQatnVSMy
n8nBPzYvNLPraWQaFkfAM+hQXB2BRmbV46BwSAV9srfELS6RRi2FswGLMFdZ
aVt9LR1ze/gCQ/2WTQCIhMl/5WiudPPSCV5+t+bJbe+XqYNP3s6qwJdPd2xd
1tn63GVrbxMiPbaITiqOD/BwsnN8lVsBQxelpxcQO4c622vKsjLSk4ohRA4D
XlRQmJ0KAkW6WuhqaukbGuho6d48fUVaRkHzvrHl01hs93RrOyTzydXb4hev
qCT0t8TYKtxTkpGWk7qqqHr35oM8OqqxuhRIwAGLcZAcl6bezolmJotcRais
LEfSqYgqBoWFrmqoKS8ngJHNg5SUovJial1pHbbc3OS27P2b5vZhoU0faDJX
/WpYo13QFyam+tfOHzt8YPc/v9Yzr7K3utVvePnX7fbwH+roZsPTUsuI0KQA
j8fOHsGZcBoDD8zKKia2dHa0UIHpmdnphfDaBjIoOycrLTE/++VDPV1NTT19
LZV7stJKunrq6np6po5BwPqRicXh+hI/c7k7krcl3eiccI17soqK0sqqvJpW
93tZykUGInvbmG1NUBwmFdTW2tfHrWWQqvDl5cUoGgmNJVPr6AQiBYfEF5cT
B+uBRSgKvXVkojCDFHpVx8BY2TyKM9pboCDlBqX19rKAAVZSN8VPHT20b9dX
7z9/+mmrmndtr+Ft7tcE870tzbSK9AIEtjjCy9XZIzAmB0auAWZlFlZSWTUc
amVBZiYAWEHkMFF5aZlJ6QmpCX4uZgbampoa9+TlpM3dHI3vP9DTNfMGMEdm
51+3NwAiQ43VVO6puhO6KQA9ZT0j7QfG8jekHsHrZj50NtSR0Pi6OjwKFktg
tQ91N9CqyRQqAgEhULAIGIqMJ1WCsSQMNh+K6GCUZkOgvXhAPmZ2asBJR9Hi
3kvo6wlmvrmGqX8BjQELs36gfOPS6WPC+771K/4YzZ8sdn3Xs3be2f/y+WEB
gWYOqiCrDF2ZE+Lp7uP27EUSuAKcmQpAVTc11WALkxPjIpOKEPQmNhaYn5+Z
lV6Q6m5nqKmidO/ePWU1A2tbIwPj+6oGFsG4gZnljzNjFDo6ykPb7GEgbOB1
b312Yl5JRkaqn52mvo4XtKWPw8JgmlqoBBgQimLXDrRzSBRKdQ0ajajCwaAw
DLUCkFKErYRQ83mVTMaBiiAdDZiois3lcpSjg1lybUfb9FTtMzWLxEQYFhRg
IH32jJjwQYGf/v73He/2sZ+/iL/L7tanS7dKmu/uasQACxDIkvRQTzdnZxff
BBASg4CTm7r6u9igxOCQIN/gFCCB173LSwCAzBx0wWMdLVVF3hlBQVlTV1VV
30BN8Z6+QwZ7ZGhwYrCnFgtOeK4ppRtSu7g2NzHcP704MTrIzbDWu6Gi/bQ8
LQrXV0OmFRYXg9G1raw6Fp5AotNglQhoeTkUTaaVFuYUVpSXwUtB6SVICio9
A9cML1yatbnOwqBzmROtw/NzTAd5w9Cc/Fh/ZyOVn0WFeMvyp6/j1a6tpsTv
W9vr9yt3G8xPdE8zlVBBROSmRXo9t3MNissuJzOrq5v6+nubaXnJ4a9ehUQn
5WPryBBATmZWdlZhjKW2irK8tLSUlLyynLyWiY6kpKaBdxG5tpbV0N02SoJU
BDzXtYmnj7zZ+LjwZm3j7drqykKFt4WBcfLw4OJ0SWTnkEdmRTKB1gEjMlCY
Kiq5HILkbfAwPAUFqqgEFkGhAGRJZnphJT4juLi2mvlhUPzywCSH2Tw1uDnb
CTe8q2Rs4uLhanlP8iL//TLe8Xfvt/xuX9fZu/1W+DZ364vreGD+Yy1sOhNf
g8pOj/N+5vYiJLkEgYYh0Iz2dm4NKi09Lig0JScDRKpD5yQmJSUVpXhbPTCQ
kZGUkOR7VXTua8lKKOqYBWZlZFSyu3qHekYoL2301V2RU7zjwNLaxvrKypvl
D5MzDCKQubS4vFzHeg3xhqXhy/CcCjClGobA0SjlEGxBCRKOxxeWZBbDwYVg
MKK4ODMjjwrJTH1JGBsbuWX4ebaxdn1qfnWyF6EurmTm4qivoaGscPkS73C0
97v87pyC+dydz0h/5916DRqYtdQqIhKa7vn0kY9HUB4SVV6aQ2nuG+huQmYm
ZyQlpKYWIatpkKz42OTIjHhXSwMVOSleyMjfU9GSNb0tLfmzuon741fFueXV
dfWNTdXJZvIP/Jhrm+tvPm+sv3ndOLcxP/NuY3Zq8XVXH6jl44A176wOKWki
lleWQssqibUVJCi8DATDFmchckoB5bxTQxmktCI7CVBSFtTqkYDLq1R1+TwE
7Ft9tzw3C9G+KKlv++qljZaG7NXbF04fPbh317d+tbMH7/2SX4Hvv69g276f
ScUjCXhQdtAjRyfPoPQKLLwkB1LXPjjQySVUlaSHhSTlIcj1dfC8uJCQiPiX
Zhr3pCVkpCQlZRVV1e/ZKEhduqpg6GTy0Ms3EoDAtrfTqoC+ZjbpA2/WP39e
/vBmrb8SuvLp4/Ly20lyTsITzzCS80MADA0qxUBKAKXFJRASpQJXXlyajq0G
leUVIcpglQAQBIyGZ2TmZ1VmUHuCXlg43/adrE1sGns33ZGqcf3uTcXH6QW8
TUBNUfb6+SMC/A9K/oZ3qysL/gDmp7mOUoVGVqRHulo6efrF5JaUgCqx1e09
Q12sajQKkBYZnVWEptfXVOYnhrwKD36sIiMrKy8nJSEpp6yucU/9zg0t1wcW
loYudhb+Mbn4trGptmRL6wBA/+Lr9c3N5dmOMHMN3Jt3g+3dJD8dlbv3PB9Y
GOW2QwthgIL8ZHBucXk1HgYrQ0IK4chSSF4RGgaFFABBxVXwlKyMmLLi3GWE
vds1fRwzN3FibqLE5p74NVk5PY+U0lwPEz1tXZnLInt5uN0/cL/W8y+/k+KL
l4hFo0oLol+5PXT3C41JTY1LQbZ2D/f1cWCgnIy4pLjE7NwyEg2Rl5YYHR0X
ZKMkq6CoIislIaWgoqaqpfNQ293TwMzQWF/PJ8IrFtK3MDUEf6Zj9gQ6sri+
8mZiHKt+95xN2fTsbAfAVk5S7+cnRkopr8fTC1D5oIyU4hwQgo3lrR9cLgGc
Bc2F5MFgpSDeKw5GVGakJEXmoAIa8B6h1265e4RXzxJjFBVlbt554JuSl5GV
k+qlo6Apf12Mdxb8fgF/Xb+/wG59iQ7Pyr+pAINLIblBLz2cvF6EhMcnhwcX
skfHe9opuXGvIkOiw8LiU8FkfEFESHhkbOIrS2UFOSnZrXJWVr6n/8TWLdrS
WlfFRO+h96MA1Mjy9NDr9kwXRRmrcNTY0mIvLt1YWeqMnmsGttRd4efLt/W1
VYLW15hRQGhxaVw2IBuIYWF48xUwCVeaC88DZ5VCgeBycDm8qKIgNikxtjw2
dlAf4H3RQN6SgnDXlZWQ0HKJA1KasJlR8QFGEldv/3zswE//+OdPv0julpf/
favfvimI/0Xggl/yfQBeCUPAc1+6P3Nw9wgOiYoNDS2oHRxsqcdnhnt4egS9
Co7PhDJIeYEv/AJCXrnoyclJ8z+cIi2roKSsovfwcVK0q6GGmsMz5/v2iOaJ
vpbWRlRmvNd9BVnDQPjryeSntlIKZxVuyhvam8heuSIurqrf/r7PO7m0sBgQ
mZeXmY+lYfDQigpIYXk5CApIzSnOB5YXQeAZpSWRCckhhd45a8nRAw9vndJr
Z8Q98YpMpwxPjL1eYOW62z18rHvpwmmRA7t/2rXnl9nlf1pnv+D334MlfOjQ
FpifZTwWVwVM9Xr+1MHDOyI2Lio6B9fQ0cmko3Nj3J2evPAP5c1arGpQdEho
cKj3QzUpGYlbUnckpWVklTR0jTxL4T52WlYuT630rDNrSY2Ta6Mt/T2E/FAH
XSUJg7z2SgczGRlZe6U71yUkr1+7o2Vsk/Zu6pUruDC7MD0tJx+QT8RjMRUQ
DKkAisgvA6QlZWcVl2YDy/MgwKTkxJjMVzHv2IUd5dJH74Iw+YC6zpauvr7x
0YZmZKiRqqXZ7TPHDgnwP9f9QzXzly/P++173oWFt708MLKirDQ5ws3d7amv
f3ROfmo2uq6uqZlWBQckePo+d3d9mViAq6mGZaelJiSEPtORlb555Q7PKy39
/zo7z6i0063Rf7znTBLTTTO9V41duqAgYsXeOyoqdsVeEQtiBURRQRTF3nvv
vSS2xKhR03ubSaYl9w9oJmfOee9512U+hHFN1pqfez+7PXvvB6VnTkjhl8ZZ
JAb5OpqZhNKzJz88efeLqNZSLYzRx2qAzBNnyCbmavJWCmgDpKyCkZ+QN/7L
+63U9AYg3cwSsAqFvL7Glrry4oKymoZGbkZhXjo7t6SMWVxR2Sjk5mVwaOnk
2l8Wpx4nKR4jVgnoyYmZdb2NrdPLj5cbfcAwjOK1M4cBuN3/+It3ewQH4JXe
3jst3j0NAO/w1jRW81Oj/ElEN/84dg4jt3ZyZeXBWBuLHujn5u/rHxxJ4zcP
t5ZkUyIi4wPtcUioktxtRTV1NBpjYOURm1YYnpvnaW5u5hWZOfTi7aePr56t
DVeWc7OZ4fponC5jjGdvDjW7ul/TSMuteeneo5//fLmcCQRxtKKiEm4xp721
r75awCni81uL+Plp9HQmQ8gV1FS01pXWspipmcyo4I33c2/XbfRmno01FnMz
ymfmJmcmRmYWcvWVrp6SOXb4ABBRfo+bd2o2wEmVPnrsxz1kx47uLPNvquWm
RQT5ePuFpbBzmCx+x/zG1tJARQY1xN/D3y8wNDZd0NpeWZBNiwsP8bbCIKAq
SirKIAQKpWXmGsqr5AJ+w1HLwiEos35x/cXPn5/d6WuqDk9lVg90MGyMNApn
Is38rBVOgdCelc8+/fzhjy/jvIDojLz0vPzc/OL88p6e0o7afF4ut4SXX5TF
ZOclVzFzivjVXWU5rKzMpLJgYvPPCyuvewsnH3/+8HBoolPYOj1UXpBbX+yN
vnFB+qColL571w/3ZeJJHECSYt6/PiJgyXrGZmF2TIA/ydM/Np0ZF5dWPry0
tn6vN5cSFOzj5ecfHJ2cW9s/3ZAVExEZE+tnq42EqamAVCGAddZ1DMrrK2rv
aA8n2NsYe+WPv3zx4cvPm0AO0De6vLLx4O78RAU7uWwiNxx3UcGGVPHy27vN
tbWx7JgIZmZeTk5hFre0uGBgvLyvhlNZWJrHZfEYOQXZSfzs5OxCXk81h5uR
npEe5uM3+2Vs8cXE1L2Hq2+evFkamJ7qH0929o52h584sE+ULADAe74DizzR
IfH276PHT8h8fy9CtAhGpNQAch0/PSYoyMcjIJ4aRfRNabz7YGVlc5QV6xno
7efvHxybzu+cGahmpSYnxESEuRqiYcoKyioQFEbb2DO2pO/O+Hx6TIKDlW1y
w8jak88fnq/emZ5fffVwbuXhva2nz1fvLt6faHVVw0ak9759P8KgRAVamPuk
Jmazmfz0orICXutse6sgv5xfmZ+fywH+oecwC7MAx1zdPF6SmpxNTgo1jbnL
aN64c39zcWR9eW763kpf86TAXksXBz13cB9gmfdI7kv+slQSXtEKFJmdffNn
Tp/aJj56pJyTGhcSGugXmRLnS/DL7Ly/+fDhwwleakCob2CAf2BUWnHXXHd1
ASMjNSU52FkfBbp9S15ZDa6Bsw7N6psdWmnmhPjgbX1YVS3Lb7YePdrafPTs
5eKTpy9fPPv0YZ6dnGBO6aiShzOm3z5vIeIxeg4Ep+gCSlomnUPjljL6Goa6
q0oLGPkCHrOIUVRMYxeyeVVZRbk57e8YSfSEZBrZCU/EJsytbTz9/GpzaWxk
dGCghVPggpK7oSp7CkiORLmf1I5l3kkAgQjjyLHjMjI7a8lFe1HFwABxMZMa
FR4RSo5OCCWQIvM67tx/sDbZxcuIDvf3CfQLiEzltU3M9wlZdFpGjqcVFqEq
B/CqwoAcIbumd+nX6fKAeALOwiGiaPDR0/G1t2+fP3v+7M3GnUdv1u70DxQ7
62Bc/TNZaSOPljlWVyD2rtakEFpCWjaNxqTnlwjejnY1Cirzs3nComxBKrc4
ip/By2qh5+WltT2PS2KmpkVFORJM5FGtbz6sP3v54uPW6mxnXwfLw0j71vEL
Zw/ul/peyxHXNXbmFETO6Bigzme3P+fPnT19apu3IC0+Kjg0LCQ0xJcQxagb
vrO8tNBbxU6gRJC9/XwDYzKK28ameqp5zBRKnK+DoRYc0GdlmL5rTH7H3NrW
ymw13R+nZWQdU9HXXzGy8eHFw4frSzP3tt4uACr58lldvLm2s1tIfM34HEVL
m9GRY+cXRSPTsynpzGwGu+XN4mhlYVkxt7iKxSxKyslJzE3KzyqhMxgZbUO0
dDonLCLJPcwNrlqz9WJ5aurJ68ePNmeb8lP1YZoqJ48fktq3ZxcQXO35XscR
lzQkvEf/xntmm/cIKyU+ztMvJJQcFBiYVTuzvrX1YH6kghGeEBUbTPIOprIr
e6aGapkJUVFxidE+dsZYiIqaEtoluWLo/rMPG8tTg2RzuJubBzUriU6f3Xyy
OLu8MDz+YKaJW9w3dv/r87U2B6K5vZNLaF2Ylt9sp68WyTWKFZUUlslgJiVU
D07cLc/hNXJzS+NZ+SlMegEtk1mcmZtNZ3QISlhhDHISheapqWrW3FI7ujAw
vfBw7dHLgRh7jfOXrp04uBs4uOIC3V5xXVJquy4p3mz+N97z27zA+U2nUwI9
gimREVGhSRVDKw8fbiwO8tMiyOQAL3dTf58wTnnrYBM3JjgyJDKHHeOsj1BW
VIEjjGP5Ay9efX35dr43wonqaUOwccUTmqeWhjvHBjsn+uuZzLqG+rEnP3/7
baU1xZ5gZ25lgVHXSw/X0TMNSUpNjkunpcb75pSU1twXsjOqBVmF2RX0rKT0
XDY3r5DKZidTC3LKBGFx/sGtI16ga1RuQVR0aX93W+/a6/VJjuntc4cPSkvv
l/rnTyLx7pHaCZwlnd4ib3RExCsjObvi/fPAAZbItzg3muATBAgnLiAuu/Hu
+ubDmXYmNSQoyNfD1c7XIzCtqKmjLD0kKDIuJYcWYqsNVVZSUVfXCRNOvnrz
7LdHT2azSyOxxvpQXfsgXnVHXWl1cW5pdGxWoSCj/uW3L5//eNzJSaOGO+A0
ICpgR0sVI9/I9PTMHHYyOdCLmy4sEgrbEkvymUx2QS6ngJaenc/m0nK4mTGc
HG5ZBYng1vCu9gqEkpjkEZzSPMhnlE8tTnCdr58UzUzu+UnMu32rsM0rFvBh
kXxF9nkb+EdeHsXPIzSUxsyO9AgHeFdXF7r4ObSYMHKAt5d7QFgat66vSZgY
GEBOZKQnhTnpwNSU5FFYw/i+zQ9v1taer4wPVtvqaoE08VgCk5pFi0sID4ol
RcfTQ7hjP78CAq4X6ysPWsqj9GEwkOpVLRVUaMnyQks61S/CLSC1i1sjSKvN
zxdW5hWnFbJLKrhcHgMIaVnZsYkZBQ1tEYWB7NVOVe9QN09zD1dmfSrJn8Hn
xNhcOS61S2rPT//4CeAVAe+Eznv3bnsksYCPn5C8C7K9uBow0CLeBE/vsLh4
ekqMt2Mwv2dpZXm2jVuSS4sOCfT3DwxJLK7pv9tRl0gmB6XmJ4cHOOoiICpy
MLwje+XD+6fvX6/cnZ5tMrG00dW0M/JwdSMR7JwcnUhBQX6ubmUPth68+uXz
l88///J5Ld9Y9qo8FKmjDk+ferWxFklISQlK59byMklZnLxqDj8bkHVZcx2Q
aVeWZCWnZdISYrmteQnPM61imyNtdFVVVRBK+m4kPBaP18chb57at0t0myDm
3fVjXUPCuwMsXjW/8xTKKQlvUHBUBCU1M9zd3jaoqGth9eHaZLOwMDUiwM8/
ICokNpfffX+ghhIWFZrGiXG0MQJyfVVFiJW/cPPdy4erE48WFtYziZ4Whjqh
5s5oIzxO29DE1Moc5WQelrU0PzVz/9PXt48+ff04w/HQVEUqKxESR1c3Pk8F
h7+pSsgoLGRFupSlFhVkZWeyOWXVzU2VA/2N1WXFWfFxzV6M8sKcumD3lDEe
2AgLxSE1kQZEOyOMOkZPV+7sfkCXd+35SQIsYRbzSklKOdvAMqII6/sjRhLe
4PjkSMD/B9haO0cX9wBB0eM77fzclPCAgAC/MHI8R9Cz3C+MCYsNiU/xszfT
1QTiZ1Vtj6TWh6/ePRl82L4639id7o6ztPNTQWE0EDB1NBaDgqMMnDwFAy38
oZWtp6sbf7z7+HqpzBUOg+GyuhdmusdyLRPWW8PqSguDIqpmIzhAHphbUCmo
bRrunh0f6e3qprkRV81C8mYFzuEdE69KtPT1wdoqaBUYTk9TSR4Mvn1NRuof
/+cfP+3+afuzAyy1XZvcUenj4id4xA9TiUJKMW90bFJCUlKCp5WNd07b7ObW
+mJ3ESsrOSqU7OvuQ04qbhi5N1QRHxobFpeW4OeAxyEUleD2EbyJrXd/vl8c
KqvI5FXSdSxJBnCIOhSioqKmCgIrQY3Rlnqc7JDI1pFKXlFZ+2RfJTNYW05B
Du4oGL5/ryGJFECmhG9NBruZ1XwujWyIjsoWNFd3TgyOPFx9OlUnoBBDenA2
BcuFzN7HzcsZalgcXFNBTVZBDYNSuHXr8unTh3b9E/j89APvru36s5hXfIal
xfmgeKHgseOSrZEi3kRKUnJGbLCTuTW5enr96dqdQSGdRkuMiQh2t/QMimFX
DQIxBTUklpJd1RziaIhTVwLhiAnV9579/PXjqzsrTwcWqy3NdXR11PRhGLCi
ovwNWRVlBXkdqLGuJQxnb6FrooPQsTI1MLbQVlO9ru3Q3d76ZitrmkV1yurJ
p7lieVtvONERUZmVtYKa4fnxifapjtKSNFo5FacnrGmcGP+dFYQ8gcXhtCBy
N+WuQhFy548fkZHeCyjzrh3gf/7z33hFWYMk4Zekv5Kn0kSvPBxJiqQkp6aH
WJs5p3TN3n/ydLGDz0yNjIkkk2zs3YPisoDIaLQsLSyezq3jBLga440RYGOb
+NZ7L377+ml19cnSy3uLVJKlOkYfg9ZQ05S7Jndb6aasKkoRJ4tUhhpgbaxI
sczqmvv3JqeXS13lb7IXl36+f+fzqw52FjuDamVObP6jIrp8pKI/N4M/3NPZ
0do/UtlSUZTvYYrNaX/7dHnBHq5+Q18HSFNuy8pdl1e9duTw8UMH9u3+5z9+
2vO9jrNjr8Q3KdtRljjqkJZk/dLSR8WsopX9lMiEFE6Kq5FDcHbjxNLmw8nq
7IS4wGB/b6Kdq19IYhGQE9QJU4PC4/M6GpmpQS5WGmpoe9bMq19/f7exuTm/
end1OttH08NUN8DBDSsrD70AUryNxEJBiurqEAsbl4ho7vjs8u+/ffnweXE8
AyYPNeSNFhY8f/9w6EEnIxqHcQ4Z/YPOq2pu7xVW1jVOdY125fblU8PjNAzd
Ftdejqa7GSHNzKAwqJqi7I3rV26rycocPboXyIsAe7X73+rO4iO8E1Ue/Ot1
ArHx2n4pLDo2mcFI8rKw9kqtm3vweH2smk2PCwz0JDjbe4bEMuom7/SUsWIC
ImOzWjszEkhWhmiUXlDd/cfvf3n7cnl16cXsSkesvqmWdRDJzR6KM0BpgRS1
9JCKcDkMGK6jaebumzHavfLk6fvlqZZmurWi/BWkqxlt8O7Y3c9PeiscCPr2
tI2JGAozqbKhb+Deg8m59vwM76RUe7R+38fxEQtLNy3BkpLcbbmboifGLt1Q
vH5MtFFmj8RU/Z132wnvAB/8/j6fRLfFtbu4BDqPQfU2x7uyR9eevlgdqs5n
UELIni4EF/+g5MK6odmByoRAr5BgSnVbZSrRXE8DYxrS9fjVr5+3Hty5/3QL
0HaiPhEZl67rYqxHJdhao1RxBrfkESiEKhyO0DchBAt4D16/760pFSR6qEWm
ghAayjBtv5Dee6+fLg/6a3jY9D5aKQ4Iy8ji9XY319cysgIjmSQtTOXKjL+t
q3fwzG8tF5UV5a5dOHvmzIWLl09J7Rb5XpHz/ec//p13p7FMche6cz/4197+
w4fptHRBcZQV3jGp8+HDZ8+WuwVZ1KigIA8Xd7dA74Scorbpbk40ydHVJay6
pyfFxc5UE2uVMvzoyYc39+6uPn4y1dbECY4yTeaYqZs553B8IzVNEHhjkAJE
AwmGyKE0kY6EJM7wUhdLGKyD99G+XDZfnGRto4HHRCTklT//1GSG929uW/5t
McUtOIPCzs6MZTrQBR5YtFV9WHAIp+PRna+TccpgsJrijYtnTp2SOXlk1097
/ikG/g+8/9It+sMF//bSb7GkMzNZZUw/G0J4Qd/d5a2n9wermPHRQQGu9k62
BFIULbd5tCLcz9XOzTOhsbM6wMzRSkvXPrvn3urT55ubG29WJ2vqM3MFnvk+
8jiD0I6MNFc7E4s0cytZENwQqXwNoaiI13NJ6eQ62ThYYT1yDM6YkIqGFwuS
/Uz17LFGyYJhNxgQs/LHvzxo9PKOj8+jJNr0VuC00QpQd6uMRy/fbIxQSODr
sgqqqrcvnTgsfejY8X1SUv9nt4T3n/+Z98cm2b86OLYX+B+is3glUe6uAWHp
DcMPHj9ZHm7gJMUE+TnZOlrbB0Rnlna0sQPcXZy8Q3M6GqrJ9gRztK5VaNnK
L799ePrwycv1uyOVaT1N7DAc1sIylZsaj88kZhZZOsnq+jgZQhBYENYAbUCC
GhlhVa0t4Uc9bpw1rZxZePby0VRFqQ1Ow9rGFqdo4h4ROf3sl0k/18hwG9Kb
NDBG+8bt26zCjZdr7SkUqK3ipYvXZGWvnZHef2DvoaOAc90lutUGXNC/nV+p
v312gMX7K/ZLjnMKu4QTT7B2cqW03H3xamuqrTQzMoTk6eDo6U4KSyzq6C7P
jPf1cHALLhho4XhbmmPgelaxZau//fzq1ctfnjwbX+cw1uriiTpaBuapiema
vlmcKVcrM1Vip6+zNlRNHo9SUkLJwrRg6EtgEq0+I4REtuHO3X377O2rlop+
WwwOqwyCY1RZy0/fugRHUq3XhsEQRQVFt+65Rj49SR+NCDaVv3nt+vUr52SO
Hjm0R2r/7r2HDuyV8O7+n3l36rPfO+22r9AOHWJVCbOTvG1svTJ7lje3Nhc7
OJSIoGAvZycnd3JsZEFrfQM/wNnG1SmEV95cEmmnb6CnbUeuWH3/7eWn989e
LD8c7B5ZzAh21DU2ciMHu+h5VI7FBRgbWQqy2I76KDAIdwYBVdSwgSmoYQm+
Xlmu6fWUTBc3evNw/8byk/WBe8U6PnLKCrfU6M8HwwPbEjK6jY5BVR3DJpI8
IQgjYnR3nb0y+pbilTNnTh7af2jHHkmJfe0ukZzFf/43+e7UpUU6XSooYCe5
GtmGl02trj1aH6/NTQwN9HO2tLJ1DY5KLu9qqcslER2JJHpLR1c91Q6ioqVv
QWx49edvT999WH36dnRiZqsiI8IZ6Wzr6e9PIDgV56enY8zzcgQulqryF1EY
kBFUFYfTROnrGPhoyFLtFcpiF+vYYW5eyV5A6F41wFsRmqsrnzcyje/snqyn
guQuWFpHI2yuw63jBgf62RRVKyfZm+dOyBw/sHf/jsORxBbbtSvJ9/8H775/
4a3ksRihNkbE1Ibpxa1nD7pL8tLjAr0dLG3tCAGBaTU9XdV0L3dnV2JS6/hc
fTTBGKunhQwdfPnr+w+f3jzbej51/+HTvDKavbanG8HPy8HGiZ2YzfZPEUR4
QSEKyhAlWXlFMytNZXsPdRONmxf0Lqn5qd1PnM8bmB9jE/BuenC0XZCbkwHk
6i2oas+bX0mK581V1BRQN/WISez+lX4PJyM7iJbm+eOHj0jvE9+LibG2ecU6
LaL8H3C/Nwb/yMsvLsgMsjX3ShSOLGysTTfkZ6VSfT0d7VwcHb3IWVU9vYVk
op27X0BS/fT98SBDHSQSaxw18fzLu6+/v/3wanrtwevZkpZkM2sHV4cAEkHT
OySOzuOX+hnfULqGuHVJW93cXgFkHeGJN7dW1AKpgtVkCVqpAcW9ddOT7Ip+
cw8vOFQVLG9i66lxJvtrofxVK3+SrmGIeZgZ2ssxzNMXZWaEk70pc3jfgYN7
/+Woir/s+iuO/A+0f0n4R968oqI8iouZW7xwevPZ2vxIQ35Ghi/R3s7Z3t4r
jVvb15Xi4GwXlJBZ0jXW3+oIBStDtUxCpn7+9umP3395/tvYxsrLtrISsout
pbWna4Cnhq+pZzQvxw8ip4kD8mQjKBBV6tj4BQRg41R1zE/rKmtfkdeIYEaH
x4YT7FIc3W1jtDMw1z2d0+FaSsMfAnVAaBj+si7ONba0saeJps4z0DcyQF84
dkjUvL1nz78FkNt6/R+F+wPwD7yHWYycokQX65DCvnsbr7bWV8fKsjNDfBzt
nR3dI3IFTQPNsQ6kgHgqq26wjx9hgsNo6mGR3OV3f3z57c9fP75bevF6TFid
Rk6ycDTwMwkw13EyNXHx1DG0tNCWUzXFYEzhyjhUiLW5WRRa01BFV03/gtYV
D01GcWPSUkbdMK9Q1zwLfc1WE60NCWx8/WkoytXJwlbdGG+Z378wSNTTdC7B
JkHUwTLS+/eKNgR9V+TvCrxHbKh37n3/B+DvH1Fpi5HFKIh3J6Y1TN5f3VyZ
n2hmUyLD/V1dPYiBtMzynn5htHcYJZ3KbBjq5wQ7WWA08FbuNaPLL779/vW3
rxuP3m4WC8oiYxJtXXVsHXw0jI2N0XoIL3Ocs405WsMUraRqamJhZObgomQI
MjW3t7gNlUYa6qf5sVqnsp6sZpaATK/pa+k4JZZ2PRyb6pzpaOdEhlihzQih
5cNplki8+UCMN+HWzdPHD0rtFZtZCfKufxHvX/e+f2fd8zdgES+rsCAnJSAw
vbRr6enTzTsdJVmUsABvd08fr+A0et1kHyc8IDQuN7dycGaiOJ5kp4vWccoM
5Yw8//bzn3/+/ujtegO7Ns0j3N7FQRcV74t10FdRxBrEEH09nfXN8EgVCw1z
DQxOFw/HK5siwmVBSqpayjBTk2i392ntZYFxrsYm7n4h3hwBdykprTwqTMDm
1PFcYr2dCeRymoWxvYNtGdZH8+JZmUOiy5K9YmCAeGfeSPKn6CfbfurvvHv+
nbegrIrHDPJNFbRO3n/yeL67mpNMiQt09w4NIlPZPUNtjOBw/7CMoprxvp5y
shseo21s42AXv/L+29c//nj56WN36VhPZlCKZ6ijvUaJCRYM0yP6OQZb+JDt
DO1uGxvYaRlq6Ws5nNW6YaLteU0ND4fiIGAMAZ3S0htDsnB1jHMlt2cQZx81
8l39A818B5pmewxYRLy+trVPiA3BJ9EyLhBkeVP68H6pPXuBTGGf2PVK7dRu
/kqJdkLmvf+BWiRn8V+UEt2DFxbyS7jhvgn59RMPNh5Otwjz0uiJQd6RsT4B
mZyWem6cb2Qog5XJ6JyeKyVZYjR1jYDIImXm7Z9f//j02+OndXeeZdYnh1N9
zawCddEEWwffwBCys4tLRLwRyAhvrKNnYAXD3EBe1lOTJWvaXb1ld8VUwczC
JInCcjbWQpnr6Ec6uN1d2civtrILhGWOFLTMmepZIUFgjKGTXUoiIwmVilMC
H5MWj2bvkWylk3CKJLdjpv4r714Rr+hIHDwk4OTXVieHpfJbZ9efbE5U56cl
UGPJfuQQr2BGYfdAAyM+NVWYFs8YXL6bY62joaWjrWvsmzP04devX3/9fXOh
89XDaIFbIdXVCEr0s/BzJkUlcuOcLOIztQ08zF0RJuq2uhgVCAgqo0yEh0qD
SUqWcFUPtJ+hG0ndAIFSV9c3M2mYHymOpWjohGKCStxCZ2LkTFC31dS1CJ5l
zYVsE0vrm7dkjh6SbAXaHiXaaUv5u036O+/Oz7d5xWWtCkFpT3sOjd8x9WDj
6eaokJEQHhEeHejmSY5PZzSPtLAS6VmV8Yl18yONYYba2rqaMD3X4PzWV68/
f/398a8tm0+EHTFJKWjjIBeKnVkxNy4mszncxDsImxAb7O5hi0XZG91AyCmd
gxNkYy4aBch7IORNdG20LdEmure0lfVksVl4Z9pCUBAYaeCsaJRLsMyJvKYK
vnQbrBMSmD8moFKuGGlcOC164Vi0uk0Ms3fvvxzK/wWv5GzvFV/8l9a2z3bm
M2sn1x5vPnwwKMyjx8fFUchewZSUNE5lfR41ObtAmJLTMVnPD7A21NaCg/W9
Ami5dzc//fnh6/zG5sIE3SI8xs2RaZOADb9THFLb1JlngkW1JDaQ89MtibbG
Slo3lC/gbVVt5FFs/WCMhiMO44IiQQ0U5ZSgMrfx9irO7mzvWDk4TAeOTvTz
sMZcv37rnCzYjMngN5XG+aJA6qrnRCWrPbslvD9ETJJv/1vefeJCPK9+eLkx
l1k7vvp4c2NlsLKImRifFBUclRgTm1lVVclMy+cKivN4lT1dXdlepuoQmLqO
pQsxqm3zz2/v/3xzf6gwjs7PiCOlcImu6hVtvHDe4qYd3KuwPLmjrqomw519
GaJxG2tqqQEy2htinELVILhpuWr6m9kjLqHOXb8Gu3pJI9JbzsEWoXwDjtHQ
0fTUuiSneOGaopZzaUtjSUacrY7yFcTFE4cO7t+1a+/3XcDb61O318X8V17J
D8Xto4dLaofu8LPY9cPz6w83lrsF+elRQdFhIbHx5GhOeX1XcXYeu0jA4wgm
5ya4nqYIEAKthTG3TKh/8P7DiwejfRP3x4p5gmj6eICHs1FuXihtM4cYlxeV
VV3RUjpcOutta6qoHerjgTQl/UQAx0b4h/lbEIJ0/Fw90ObXVM4p3JZVVUJB
r2Mv3FJWvnkWefsyFnru/NUrimp2gdzKjFRPFysl2BWlqyelDx/YvWtn68/O
cs29O9vN/ifeH2atAJsleb6upqZnlJHObRuevb+2PFWXm50U7BUQHQO4I1p5
Tf9yAz01u7o6P7vm4Z3GBFsjNAKJRqPM7HnNk9PTd9+/+fRqabynKbZ5pinG
U48Y7O1ixKxoLexL5dcUdnd2CusJJloqeQ3NdHgi2hVhHkSKraO71BM8AgJt
KKYK0NPyJ6/LXgXLKSnInr9665raBVWVK9evnpVF6eLiWMW5zi6GCAQUClG8
fvoIkPvulux92re9TnSf+D2Fv62t+++89ZXNFfkR3LqO+/c3hppbCuIoET7k
qKjw8PCU4vZ7QxW89IKu7jT2yPwYn+iuizZGGBqjcNSYsubN1398ff9qbX3x
KaH55UxxgZNVqJUxtqqNn9pYX1BWUPJIMJ1MtMBrVdRX3NN9SI508HVGl2bm
9yU0BNLiY9jJGqQb6gpyly9fvnnh0s1L527JXb2ucu7KrSsqJ1V0/MOzS4SR
JGNtuOItFbjazaPHpfcdlNq33ZEivi8BTrTUztzYDt/f/33vj7LfrufUljUK
08I5pS2L09NdrV35wQFBwZToYHJ8Eo3VOT3cws+t7eYmsprbGvgJFi4mJmbW
WJwZgTI2sPLLp0+Pv3x582I2+PNEY0e2XyiV7umYl50RWlaZ095Q8ucEzUHZ
yfY5Pe++08bc7TXnvLCS6NrCjNGmYEFhfKt/uNv1MoQsEn5RVubKJQD7xo2L
1y9fPS1vADX0IHMzcrLziFgECKymDEIqyRw7KLV/t2iTimSx5n7R68779v7/
8DbWt5fSKTnc9nvTkwNdHUwfTx9yWERIcGR8WtHsaHtdoaC/JyM5t3V8or0w
MsTUEG8I0zE1o/T0TH18/+XR169vfxuv/Tzc1xmdys2r8QuOIPqRitP4rS0L
H4rsjFyos71Fo+45n059s3gZOyLILWalPhgQJhdnMDI7bDmr5lpBugrgM7fP
3VK8KAe9pnBd9oqOg4VXHqukLJ4cTDJEyCuryUMskOePH9x3aC9AvE/0LLs4
MDx48K+5wB22/w1vZ99QKSspLb//wfy9hYE6WoC/t793aBg5jMJpGe/kFxbX
DnSU8ATtc3dbc3heWEN1JBxh4h6VVDP+6uOnl18/vvxyb3P5/moVLY9fM0oM
cPVxD81IZWQ3fam1NfdL6LzT3UzzXveJod5nvm7lrwvzizoay8lVJeQRQfSv
jaGxXCO8qTL0MgR9E2oChilgUTbe/h5FDQWcUCeMowFC9jYIpGGLu3TswH7p
/YfEIYN4UbsI+K/97Ttof+f94fO9JbqzZ6giOyqGOzw/u7Y6XEElB3v5BUVF
RSZlFzXWtuYxymuau6uE5U3Ds8P10Xaa+praKHWip69Xxd3nj9Y//vnm49sX
r1+ub9XXZ3NnFlxIztk+FE9qbPTXFCN1YWJvzUhzFam37jKjJ3l+rvLu8lhl
flMFJSKXxxvLXnpVUNzB8fcK0sUqaBmqYF30NMAEd+9ktmdsIc/Lx8IACVJR
AOPMLC3x144d2HtQpK57d+7DREXlH3j3bleq/kdecbQh1ufqzpoUcnzV0ODo
0p2BSmqwHzE0lJZFS6bllHeMF9M5hXWz5bn59WP3pusdg/TAWkZIszB968Dy
8cWBB3/+/u7Lm99++W3zw0AHe+JDAyEhJNctzDYnNN0vwLshdi65ZaJTfbrz
egbVd2qolT/XO1yRI6iJDPUvaq+afzw6OTgXmh9AtdLXMDBGGXk4EjU9c3M5
FVkBgdGexoYGcipKYE2zoBhvq9tnjh48uOfAwf1AKLl3/8GdsbEfeb9P/P4X
3vqKtrqkGFZ7W/3g7HCXkBoW6BWTVMjPjI9nVo8N5sUns9tm6rJYtd1DjbR4
qq4yWl+D4IzEe7OKS9vW//z488cvX7+++/zneH/vp3f5Uc2c9GASITXyQr5T
eWS7kFHUp9XRSTUjehbX1HJKhX1VvFwqLyE6pr2+5sXQxKvJAQ++d4wz3tjM
1MQpKJLt5V1SySvk+diZeKDQqkoIJaSeaSQjwlz27InDh6QOi4JKsWZ+X3/8
A6/4/uRfeff89ZHaOcAtTT21tNTSzjL+wNRgKy8hPsovVlhZkJLMKGluyIuK
Tinpa63MKmqpa++vriOrY3E62o4IIzOLmOjw0blXz76+//rh68/fXo1vPns3
01H6oJVdTHIjwrzwQ268Wi5ZaJXDE6CdfNixJTlZdFpebi4rh88i87qbZzpe
f1gfrvGnEf09jOxtLFz8Y1ml/Mi4DEFGpJWtEVgXoqwGvoWxNA1M9tS+cEx6
/77dh3a86aGD/4n3wH/jFc+rtDS3V/JSGNWsprHOxnZeQqR3IBtwusmZrIJK
YSYllZVf1VeVmldd036vrtATpWGgh8VhtLTMXJ38cpe2nnz79uXrH19fPZn/
uv5ufHLh6XRrj686zhNJoXgksTPCHbyy+EiiN4nmEcOiRfkwkrO59XEVlJ5R
4dTq29d3+pLiAxzIDkYEX3f3aE4Fnc0gE/wDbEx1NeBgZUUlOYSufUhOtqXS
qcNH9++S2gfYK5E7Estqe0v/zukV70UWIYuaznaqldvoe8QGTeTDDh0+3N7c
UZsTm1WZ3zDaXtVZQY/2j+DlsGlxqbnF1UXMpLgERu1IDZfNElS3pWcQDfE6
YKQVCoUxdzAnsmbn11/88uXrz5/eftx6P/V07c4vn7dmA3FBpuYkCydH9wSK
g2lAhrMKOS2E6OXF8g/wiQpPbhrK4VXMPhhfW338eEYYFORh4mBu6ZwSEpRJ
L0ki+/sTLE0M0Eh1FEJNUR6KwXtQS8rCweeOHD0A+CKRfRZPeors83ZsJZLi
dth1cL/4hH/Pj6W2yyF7tk+B+HK0sba5lhWWXlLaODPQ3FeTQQmPZeekx8Zm
5HCAPCElMi63eaSyKC2JX9reTPImGGMw2tpQuJapua4jvbNp7e23b99+//T8
ydOfN549ePP5t1LvqCJTQhwu2NiA6GeNJFs742B0YZCzrXeYVzDRzZcytNRR
Obj2fgNIxiamMtyJTgZ6xu6uxdQotk8ixdmSYIvT0AKDoEh1sIoKRN81MZdb
GIu4dOTIfiA6lNq+9duJKSX1ju35SOB4AlIXWbTv9YAdnf7ufw8flhYWVwq5
ocmFQEB5d2ZEmJpIiY5jpqVkpMVQ+fVFmemcytbu2taiGGZNf1FYCEFPx1RX
RRWONdTXc4ziMRde//nhw8fH735+92Tt8bN3wrCimTE9fpCLjZOVqZW5Jt5F
RxdOjOD4k5xJrr40IsEnsXdtdab3weeNha35yt5oFzsLQ7QJ0SUvPjLNxj3U
2RRIsbFI0fyamioEqWVOYlXw0nxQV44e3rtbavfOSf2+XGOv5CZpj1hbDx3+
gfe7Nm/fI+3fxpXmF5VXFJEp3K6BlaWFvsL4yPAg/8hsXk6Mb2xpd42wrqmm
pqWXx8ovLRQkCMLMjEy01ZEqSJy2lrGzZzBlbO31xy/ffv3t44utrYHSwt7x
u9+iKit8HTy9ra3NNInKRhicra5beDAh2obknh0V6pdUs/rq6eCdN5uza0OF
PG9HvLaeBt7WhhwQEu1g6WRpoAFBocEwIIpUVIJhXYi+rNaadCLy2glpqd1S
P0kCqe/rJSTaLOYVDeCI363eL7VnpzHpeyK4Zxv3kKi3obSysT03OK58oH9q
pkdIJ3sQ3EkhOdzkyPjMgt6O7r7aPF5LJzu3jJfE5zPI9lYmWuoaEKS2lqaR
vZVF+vDS1q8fXr5696SruGXqycyrDw+fLlaXUa2ic/AOiha2WJCFvo6pMdGD
EOdBck/IZ4YllS8+31oeW38yO1nGiXe21lbHYfQsbWxcvDzs9QwwGC04BKqq
BnxUQZqGnrT8+o6iKGu1yyePAsq8a6c0J5nG37bDYuO7XzxedVC0jlLcG/y3
uxTJ4RW3KNU3NHUxwigNnW0do42smGAvV09/Jr+ARk3JKmhvby3PpOa1No02
RoZlNfETqGFOhjpYDQ0oWgeFwRva5RQDCfBwX1/XnfnNV8/ePFh58erb0/HS
LHJiuoO8KdZGz1wPbm1i6WjrkZjg7U+tqGRmNI1u3FsfnF7saaQk+lnisUiM
lraZOd7M0lQfgYEhMUgYVE1JFQJHYMxcA2rHx9szCfArJ48dkdqzT0SyvR9V
QvldjPsPinEBKBHvbqntgGsnb9wrEf9hUa9OV0N5LSuW2lxfUzvWw4qMiYmI
iKipqxMke8c1Ntfzk8jR+c1DjXEkJotfWc+lkvDqGHNtNaQBCqSp4xzrzu+5
O/vm2/PPn/54vS56Zu7Jg3u/x5SyOqKVI+ywkc46aB1rB7y5o0NJQmxgvrCl
IX+gY21pobe/o7iI5OVqoIlGwlEorJaOto4OEqoOR0BAKE0VVRBUHY13j8wa
muxrz3O+eRwQ3K6fROVm8TXDnm1eqT3bgcY+QLzShw+J/Ou/8G4/krR/7/7v
vMcGavjVJRFsAUM4MDMrYJXHR1JZlS0Cv8BQpqDyQUZESByfPZYZR44u5OQ2
5gZa4Y3xuki0BkQVgdUzsXNqm7s3//vvnz6//fDwxdrCyzdPl7detwkGe7Jy
Iuyx9BCCtp6lj6FeuHV2YbpfO6vqTtp6+/jEbE99Lj3Ry85CT0MdAQWDNZFw
dU2MJhIEg0NU1SAwsBLEwtYSOOuLC93MAALmuLRoqZeoBUlKslxDYqiAgyqx
1PsOAriHgST58MEDf23G3bdPND8nCUJEA1hHj4masdqaBOW8lHx2asX4/aXp
clZsQnRyaWm2B8kjqexeZyolJCKnhCuISyuhp3E48Z5+BEucIUITBVGFotD6
xm51Ey2zn3/98nHjxcbGzMyTt0uz6087RnqFw7lZTtalBYG+mk4uLrZWfoE0
YcxQWXEvb7p/arhFkBNDDrQ3McAg4HDRfC0EBEGg1OEwhDocMM0gBEoD7xMe
zehdmOnJ9dC5cuzwPnF/CsC7V2KxJHfeO4Pr+w9KH5GWFvEe2ln1LA6nxbzb
XToiXlGzXUVrCb+skJ2Q1jq3urLKDSKHecUW58QSfTzp3U94+TRfv2Q+u7Ky
hk6i0JKzs+lO2kgjBBIpkgNEG+dV3JE29eGXrx9XXjxdHhpfXG/unlvoeNRY
vlzKCnbu78nLs3S19IgwCHZOLMsY6iuqqm0bHW3KS45wd3I2MdBCwaBQCAwJ
VlUGTiwMCoFAoWA1VRWQrrVVBJNeNjHRVc9wQ50/Ippa/6eIV1Kg3KnaiPND
UeRxSNwqeeKINGCw9kn8tLgtWDL2K+7cOHxE1GN37BivqaCwvZYewR2enr/f
F0MIILml8hkR/tEJJfPD5e0pRE8qq756jO/pGRjN7B5JNUXhtBEIGEgVsKLq
WgR6TuDg1ps/ft5493Jq6E5/D7MasF6bnfVTnMwQx9nhkcYsP3unDHdrYnZa
XvedurKysr46Rowf0dLUQlcHg4RDQSogwP2IRxLBUJAaGGBGgA0TElNLBCNz
Q5VZITYasgCvuB9nl6hwDqDsOJvtwBKAOSruhBVNCR4Q76/fdkDiyW5J3Cxu
8T9x4ji3Nq94sD0tsW6gb2KKG+Qd6hvKzGfHxaRzhCP1Iy2hHkQaq6WjISU2
0itVODoZaqNvCVgVNRVVVRAYpGXmRyI1zjz9+MvrD0/7x9ZrOVR+bU3X3dmK
8Viak/fcwEr/CDvCm5Gq55xMYbVM9pTR2OU0HzdrK0M9fZTIWEHVlFUgULCq
iuj3h4RBYAgk1lDPoLirtHV09f5kRagZRuny0UP79ojnmqUkwdVf1TkJ1uEj
x06IhsiOHRWd4AMHJA5IMv+702UnfeTYcVFTcEllQWV3b25OU33DWH1mfAg5
kJqaz6MlZ3BYpd13slx9PFLyKzuqKrL8qTllrV3RbrrGKJiqorIaCAyF4PTt
LYOKhx69/OX9i8d9cwv5kZR0BrtmrK+qOd3PkTraPz96b7qYUVBCMHGKDc0V
1uX6xCa7m5ro4vV0cHCkBhwQqhoICgN+f8rKKqooGAypgTFycNPPn+0cW1lc
Hq/0w8Gunjp6eJ+kX0NK8rbP3/3qkaPHT545c0rm+DGRRh88KOkX/WveWYx7
/MTJ06dOyQiFRVUtvfl5deW1/eWFuTFkEiWjpjabnpKVVjI1Ge8bHpJYUNY+
0JkczsvOq6hikEy0tUGKt1XAwP8oQlPXyDw0q+/eyvONu4/GlprSfOkhofE5
9awKDt8litPeNdG1+KKvgVcSaYn1tCMFUyMcnUlGeliUjo6ONgylCQdDYCIF
BgyWKqDKcBgKp29CICe6MacnFzYmRmrZXvrqF08dETczAHHUXnHt+YAkadgr
uRAC/AygqafOnTstc+I4IGCAbnvI7Id5dsCYnTx99syZ0yfLBfyy5m4Wo7qq
oa29pSY1nkipHOrOSU9IZ3XNjmXTkuk0TvnoWFpqNSeLWZydGxBkpK1yW04V
ClZRhqpiMRb+sR3DIwujrWtTC/k0/zwvz/DkzMhsdnYoU1jVNF5x98VkRw4z
3EvbwNIY7+hkr2urrYcAaWIwaAgSqw6GwoFgGYVEQAFqJAyBs7B3DcsoTeff
Xdt8NtuaFeWoDz8lI31AatdPu376ScIrSY3ENyTbfvXYsROnz58/cxLgPSIZ
1f9xWcFhcav7yTPnLpw9c/pUYwW7uKG7uaiwrKl/oKeURvJm11YKylLTmSmt
c5O8irSonMK2qvqmoeKMuOQMYXY630RfVV5RRUkVrAxVA2HNbfxZZcX1WX2L
3UN1rVmZgXZpsdaUJCaHRqsuq65iDTzeqk6kRTgZaWMNcFporJ6hvg4SgQD8
LkIDAwdcrYqaPBSK0QBBcFo4vKZzIjWd2TvZMf18dbK5KIZgbwI6L3PogOjq
UwQsShMOiL3qPvENmGjU6Aigq6ckM1XHge8i5MPbnOIP8B+IcM9fvnrl/Jkz
pXnsoprOttLc3LqZ0Z6cyHBqFjWbVc9Nik9oHhorKkjNY/KYBXUvB3gs75Ac
IausUN8YdlsBoqoA+BA1EMbY1JUaTPFPre3p6GufbgzxSWF5uXhmpZYEJJRm
cLPSyzfv1YdEBdrqA0EUCoVEotA4PQgEoYGCw9RF7hcMhSnDMDgNHTwOr+Pp
5JFRVcto3lq/e2e8LSfCTguDBV+WEWe1oohjj7gbUuxlxO9pSHiPiMR74cK5
s6dljgIRhXiy+dAPncBHxbiXrl4T8Raw8hj93bV8Hr9pbrYlKT41IigkldPC
JkfQGptHq7kFNfH0FNbUdEkTzTu0tJxZT0UaouQVEWq35AGfBNLQxZn52rnr
JzLKOQ1zQ53BySVJgRGWZdRyk5BMckZYcubanQ43Hw9zLBqDhsIRUDUIxhAC
AYJIdSRaEwpTh6urq6nr6SNNXY1dnRIjPJK677TVbr1cGGotiXczUFOGqFwA
4ESho2iwWcQrdquSZ4D2i8cUjhyXOXPh0sUL5wEBi2dej0gf3tlDIbLLx2RO
nrlw+dqNG9cunj2bncHizI5Uc7gVnbOTg5xUCoGYmFZVGxeckMRtmO5t6y3y
8o0rXG7pawpyT6rg03muSD2kshpcRU70ZgpIXUtTx97exJwcwPQpGBWWU8qF
UWnplh1JRbjAGKdor4jY6ZFWR1eCKQohkqg6VA2sqQ98g4v8DhqGwGhqakCx
hha6+CBfakQ2PSK1c32jb2Z+tq+EFuZiilRVVTy3F+AVZe9Aprd3u89VUs3Z
v72X4PjJs2Lec2fEQ2Si1n0RsUjKgKUSzZlduHLj1q1bNy6dO5tMyWyduNPN
YZT23h1dqYnw9gqj0huFCanx/hl9yxMzczHuJFpN7exSTFQkuzA3lWKsr4eA
wEAKymClG4pqMA0kxtRY28LO0t82Lj0nL6GyIo2TRezPTDMLCcR7OLsGVNdx
CY7OlkBwDEIi1WFQGAqDgkNhCBTOSEcDa6CLAxJCI3c3wzh2ET1PUFw3t7m5
NNTXU55IcjfDa0FV5C8dPbBvu21Sktd/j5tEtktsjAD5Xrx4/pwY+ISMjMyJ
Y5JxfVGOABjm8xcu37itcFv21pXzZ2kpjO655b7CgqbhqbtTLF+fwIgwTrOA
wQzwEkw9mFno8AyMoAnqHpSH0/IqOXmZ3noGgDmFq8iDYbevKYPACISGAVpP
21AXZ+PiHBsfn8uhcbMofdwwRz9bHXs7Y0IaK5Zg6eCAVgGpIREALhyBEOmz
piZWTx9rYI7XM8TrWvnE2GS01FTU9HRPvn6xMNPWyI3zsTFHa6GhClfPHBe/
CrNXnA4BJ/aQaI/GoZ0VQEBcvM174dz58+dOnzx5SjQ7d/zodgP/sZNnz1++
ckNeRVVJXu7qhXNJGXk1d2Zai2v6hvoXG6nRUf7BIdyqsjwKKb6+f3FxId0n
MCiEe3+ptCyjuJ2fR3cw0ARpA2qpBALJ3QJB1CBQdW00BqmridA3MnfzCA2L
886hZjSX+hLcsfp2ljizsGgPW5ylu67odwODgCHAIYbDkRisFs7AFG/lbG1m
62we4JMSWDLZOdQ9Mz79bGO2I58V6+5kJI5I5M8dO3L4oNjd7halvodEvId3
NuIcEOc9gPe9eFmk0ICRPn36rHj6VTKvf+QoYMou3bh5WwUKAynJX79wLjQ+
X9jd31pZVdfSN9hSkBEbFh+WzKngBAezcmumHt7ziXC3Te9f7B4RCkfbirNi
LUzV1fFwNaiaipLcbShMFQiP0Ohb6hiIHsgIb+/sYhZiEeuTVFLm5+GhZWBn
iMZ4k2xM4CZeRkCcDIMBzhawzcChxWBxhuYOtu5+7s6kYM9MPzqtfXV6uGN5
ZWp2fLKFEubrZIuBQ6BIpMpFGRnpg5I1SGJeIGTcWRWzwysDMF25cumiWMBn
zl3cOcgA8TGZMxevyN1WBKsjoaoK1y+e8yazS7pGejsbajo6HgDOOC7IPSix
qjyHGiJMKJvb4ND87cgVvc1NLYNrc3VFUTRvPE5PGwy5qawEl1NTV1KBKAMi
A4PAMHUUyhjppmNtZu3jSGbFRQZgjSz1DaEwIxMnK009OwOImpoqHAEGIzXU
dXUMMThXFDHKKzYjyTczK13AoPT1rCyujEyttdTW15bF25vZWGqDlRQgSKVL
p47u7GPbLiNLHKtYr0VxhfSRk6cAe3Xl2rXzVwALfOHqjYvnz4rGBWVOHpA+
cvbk0XgZlApWR0sDevvm5XPEQGbZzFxvU03T1MJUfw/Ll+gVnV5UXMMpSA6v
nazhF3uRMoWcgra5Z88HqinF0Z6OBAO0grICRBEkB0KqqEJVQKKUFQL4FYQ2
1FLDSNsEMMf+XuEB2jamelgwRNfU3lxTz94IDkSgMJga8IuG4fT0tY2J9n6M
MH5xASM7r6CpumCoa33l7uTQeGlmSgE91MnMQEsdrqqCQCpePi0tMceS6uQP
vIcOS1ZPHAEiY0DAV69dunr14vnL129cvnThLBArn5I5fOL4uXPnuScxMEO8
jgb49o3L5zxCc5uW5rsb69rmlsbvjtEdnb0j4rk9zUVlYbTmEnZNRlQmlRpX
3DX1YqOtVViW6hvrq49TUAIhFFSVwRpqYDhghwA/DJxKGAQOwkG1YXrGzqZG
FoEeOv5G+nDAQ5tZmWgZ2ptpQIGED6IKRiEhOGM83smXHlWZOdpS35ojFPYO
Nvc1rt5r76xpYPo7xAQQbfCiwp0ySAMhe+Hkge/x1HbiIwqadhyOZDcBIODL
V69evXb10qVrN29ev3YZEPGZMyeOnz55/uKVztO6WpYWBhqqtwGHFJQkGFqe
quaX1o+OLy23xTi6EEnhwnkuL5+ax6FXlEYWZ7l6UBvrW5cmOxfn6rIyBY4O
hnAoHKwMgcIwYChCzAsAQyFAxoSEoEG6OGMDHTzR1jABj1dTBUGMjc0MTB0s
MUAuD6QFMAwarmtjZekX0ZZaV3l/qKuf21zeOdxZy5say8tO4yW6Gjq7Wulh
tTFwldswXYzcOZkdXvE8goT3iHjFkzieEAdYMmdEJ/j69auXr96Su3Xr5vUr
wCE+K3Pq7OkLF08NnTXSt7Uy0FAR6XN0VtXYvT5mYnbl2OSDqYIgdycXj/SG
9tya/MTE4ML64vwykp1PUiGn9c7w/OvRaVa9wIOMw2ggVSAICFIb8KNA3gpS
VVFRA4PBIBgcqgHFaWF0cXr25saRJkYgQIn1dKwtLW0ttSBQEAQMQurooPWc
iHYhqXfzSvpX5kfaS9vKGlobOSn1FTRvn9QAJyNdcz0NlLaOhtptpBle+fxJ
6R35iqs0O5OQYl5pyRYkwGIBFvoyEEFduSYnLyd76+a1y0B8KXPmzLlr1w6N
nzMzsrc00FSVv3Xl3P8FY8Fldg==
    "], {{0, 179}, {240, 0}}, {0, 255},
    ColorFunction->GrayLevel],
   BoxForm`ImageTag["Byte", ColorSpace -> "Grayscale", Interleaving -> None],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSizeRaw->{240, 179},
  PlotRange->{{0, 240}, {0, 179}}]], "Output",
 CellChangeTimes->{3.6999562386482363`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Blend", "[", 
  RowBox[{"{", 
   RowBox[{"Yellow", ",", "Pink", ",", "Green"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.699956275916086*^9, 3.699956275916086*^9}}],

Cell[BoxData[
 RowBox[{"RGBColor", "[", 
  RowBox[{
   FractionBox["2", "3"], ",", "0.8333333333333333`", ",", 
   "0.16666666666666666`"}], "]"}]], "Output",
 CellChangeTimes->{3.6999562769160395`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RGBColor", "[", 
  RowBox[{"1", ",", "0", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999562924222074`*^9, 3.6999562924222074`*^9}}],

Cell[BoxData[
 RowBox[{"RGBColor", "[", 
  RowBox[{"1", ",", "0", ",", "0"}], "]"}]], "Output",
 CellChangeTimes->{3.699956293576848*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RGBColor", "[", 
  RowBox[{"1", ",", "1", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999563039523005`*^9, 3.6999563039523005`*^9}}],

Cell[BoxData[
 RowBox[{"RGBColor", "[", 
  RowBox[{"1", ",", "1", ",", "0"}], "]"}]], "Output",
 CellChangeTimes->{3.6999563049057865`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "g", ",", "0"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"g", ",", "0", ",", "1", ",", "0.05"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.699956315422265*^9, 3.699956315422265*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.05`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.1`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.15000000000000002`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.2`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.25`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.30000000000000004`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.35000000000000003`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.4`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.45`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.55`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.6000000000000001`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.65`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.7000000000000001`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.75`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.8`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.8500000000000001`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.9`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "0.9500000000000001`", ",", "0"}], "]"}], ",", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"1", ",", "1.`", ",", "0"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6999563176322465`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Hue", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1", ",", "0.05"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.699956376020368*^9, 3.6999563760223675`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Hue", "[", "0.`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.05`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.1`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.15000000000000002`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.2`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.25`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.30000000000000004`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.35000000000000003`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.4`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.45`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.5`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.55`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.6000000000000001`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.65`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.7000000000000001`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.75`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.8500000000000001`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.9`", "]"}], ",", 
   RowBox[{"Hue", "[", "0.9500000000000001`", "]"}], ",", 
   RowBox[{"Hue", "[", "1.`", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.699956377023858*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Hue"}]], "Input",
 CellChangeTimes->{{3.699956389491229*^9, 3.699956396393032*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Hue\\\", \\\"[\\\", StyleBox[\\\"h\\\", \
\\\"TI\\\"], \\\"]\\\"}]\\) \:662f\:4e00\:4e2a\:6307\:5b9a\:7d27\:63a5\:7684\
\:56fe\:5f62\:5bf9\:8c61\:7684\:56fe\:5f62\:6307\:4ee4\:ff0c\:5982\:679c\:53ef\
\:80fd\:7684\:8bdd\:ff0c\:4ee5\:5bf9\:5e94\:4e8e\:8272\:5ea6 \
\\!\\(\\*StyleBox[\\\"h\\\", \\\"TI\\\"]\\) \:7684\:989c\:8272\:663e\:793a\
\:8be5\:5bf9\:8c61.\\n\\!\\(\\*RowBox[{\\\"Hue\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"h\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"s\\\", \
\\\"TI\\\"], \\\",\\\", StyleBox[\\\"b\\\", \\\"TI\\\"]}], \\\"]\\\"}]\\) \
\:6839\:636e\:8272\:5ea6\:3001\:9971\:548c\:5ea6\:548c\:4eae\:5ea6\:6307\:5b9a\
\:989c\:8272.\\n\\!\\(\\*RowBox[{\\\"Hue\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"h\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"s\\\", \
\\\"TI\\\"], \\\",\\\", StyleBox[\\\"b\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\
\\\"a\\\", \\\"TI\\\"]}], \\\"]\\\"}]\\) \:6307\:5b9a\:4e0d\:900f\:660e\:5ea6 \
\\!\\(\\*StyleBox[\\\"a\\\", \\\"TI\\\"]\\).\"\>", "MSG"], 
  "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Hue"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.6999563974553967`*^9},
 CellTags->"Info3699985197-9284264"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Hue", "[", "0.5", "]"}], ",", 
    RowBox[{"Disk", "[", "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.699956422088718*^9, 3.6999564229838853`*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.5], DiskBox[{0, 0}]}]], "Output",
 CellChangeTimes->{{3.6999564130277076`*^9, 3.699956423484516*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomColor", "[", "]"}]], "Input",
 CellChangeTimes->{{3.6999564457319527`*^9, 3.6999564457475224`*^9}}],

Cell[BoxData[
 RowBox[{"RandomColor", "[", "]"}]], "Output",
 CellChangeTimes->{3.6999564470493155`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"{", "30", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999564562760897`*^9, 3.699956462757504*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}], ",", 
   RowBox[{"RandomColor", "[", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.699956457908845*^9, 3.699956463654565*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Blend", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"{", "20", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999564760488234`*^9, 3.6999565043658442`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Blend", "::", "arg"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(\\(RandomColor[]\\)\\), \
\\(\\(RandomColor[]\\)\\), \\(\\(RandomColor[]\\)\\), \
\\(\\(RandomColor[]\\)\\), \\(\\(RandomColor[]\\)\\), \
\\(\\(RandomColor[]\\)\\), \\(\\(RandomColor[]\\)\\), \
\\(\\(RandomColor[]\\)\\), \\(\\(RandomColor[]\\)\\), \
\\(\\(RandomColor[]\\)\\), \\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\), \
\\(\\(RandomColor[]\\)\\), \\(\\(RandomColor[]\\)\\), \
\\(\\(RandomColor[]\\)\\), \\(\\(RandomColor[]\\)\\), \
\\(\\(RandomColor[]\\)\\), \\(\\(RandomColor[]\\)\\), \
\\(\\(RandomColor[]\\)\\), \\(\\(RandomColor[]\\)\\), \
\\(\\(RandomColor[]\\)\\)}\\)\[NoBreak] \:4e0d\:662f\:4e00\:4e2a\:8272\:5f69\
\:6216\:8005\:7070\:5ea6\:7ea7\:6307\:4ee4\:7ec4\:6210\:7684\:6709\:6548\:5217\
\:8868\:ff0c\:4e5f\:4e0d\:662f\:5b9e\:6570\:548c\:6307\:4ee4\:7ec4\:6210\:7684\
\:5bf9. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Blend\\\", ButtonNote -> \
\\\"Blend::arg\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6999564770502505`*^9, 3.6999564843890495`*^9}}],

Cell[BoxData[
 RowBox[{"Blend", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}], ",", 
    RowBox[{"RandomColor", "[", "]"}]}], "}"}], "]"}]], "Output",
 CellChangeTimes->{{3.6999564771795983`*^9, 3.6999564843890495`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Blend"}]], "Input",
 CellChangeTimes->{{3.6999565080579014`*^9, 3.6999565158389635`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Blend\\\", \\\"[\\\", RowBox[{RowBox[{\\\
\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"col\\\", \\\"TI\\\"], \
StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", \
SubscriptBox[StyleBox[\\\"col\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \
\\\"TR\\\"]]}], \\\"}\\\"}], \\\",\\\", StyleBox[\\\"x\\\", \\\"TI\\\"]}], \\\
\"]\\\"}]\\) \:7ed9\:51fa\:6df7\:5408\:7684\:989c\:8272\:ff0c\:5176\:4e2d \\!\
\\(\\*SubscriptBox[StyleBox[\\\"col\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]]\\) \:989c\:8272\:5360\:5206\:6570\:6bd4\:4f8b\:4e3a \
\\!\\(\\*RowBox[{\\\"1\\\", \\\"-\\\", StyleBox[\\\"x\\\", \\\"TI\\\"]}]\\)\
\:ff0c\\!\\(\\*SubscriptBox[StyleBox[\\\"col\\\", \\\"TI\\\"], StyleBox[\\\"2\
\\\", \\\"TR\\\"]]\\) \:989c\:8272\:5360\:5206\:6570\:6bd4\:4f8b\:4e3a \\!\\(\
\\*StyleBox[\\\"x\\\", \\\"TI\\\"]\\). \\n\\!\\(\\*RowBox[{\\\"Blend\\\", \
\\\"[\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"col\\\
\", \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", \
SubscriptBox[StyleBox[\\\"col\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"col\\\", \\\"TI\\\"], \
StyleBox[\\\"3\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"}\\\"}], \\\",\\\", StyleBox[\\\"x\\\", \\\"TI\\\"]}], \\\"]\
\\\"}]\\) \:5728\:989c\:8272 \\!\\(\\*SubscriptBox[StyleBox[\\\"col\\\", \
\\\"TI\\\"], StyleBox[\\\"i\\\", \\\"TI\\\"]]\\) \:95f4\:5e94\:7528\:7ebf\
\:6027\:63d2\:503c\:ff0c\:5176\:4e2d \\!\\(\\*StyleBox[\\\"x\\\", \\\"TI\\\"]\
\\) \:4ece 0 \:5230 1 \:53d8\:5316. \\n\\!\\(\\*RowBox[{\\\"Blend\\\", \
\\\"[\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"col\\\", \\\"TI\\\"], \
StyleBox[\\\"1\\\", \\\"TR\\\"]]}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", \
SubscriptBox[StyleBox[\\\"col\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \
\\\"TR\\\"]]}], \\\"}\\\"}], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \
\\\"TR\\\"]}], \\\"}\\\"}], \\\",\\\", StyleBox[\\\"x\\\", \\\"TI\\\"]}], \
\\\"]\\\"}]\\) \:5f53 \\!\\(\\*RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \\\"=\
\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \
\\\"TI\\\"]]}]\\) \:65f6\:ff0c\:5bf9 \\!\\(\\*SubscriptBox[StyleBox[\\\"col\\\
\", \\\"TI\\\"], StyleBox[\\\"i\\\", \\\"TI\\\"]]\\) \
\:5e94\:7528\:63d2\:503c. \\n\\!\\(\\*RowBox[{\\\"Blend\\\", \\\"[\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"col\\\", \
\\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", \
SubscriptBox[StyleBox[\\\"col\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \
\\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\
\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"u\\\", \
\\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", \
SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \
\\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\
\"}]}], \\\"]\\\"}]\\) \\!\\(\\*SubscriptBox[StyleBox[\\\"col\\\", \
\\\"TI\\\"], StyleBox[\\\"i\\\", \\\"TI\\\"]]\\) \:989c\:8272\:4f7f\:7528\
\:5206\:6570\:6bd4\:4f8b \\!\\(\\*SubscriptBox[StyleBox[\\\"u\\\", \
\\\"TI\\\"], StyleBox[\\\"i\\\", \
\\\"TI\\\"]]\\)\:ff0c\:6df7\:5408\:6240\:6709 \\!\\(\\*SubscriptBox[StyleBox[\
\\\"col\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \\\"TI\\\"]]\\). \
\\n\\!\\(\\*RowBox[{\\\"Blend\\\", \\\"[\\\", RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"col\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"col\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"}\\\"}], \\\"]\\\"}]\\) \:6240\:6709 \
\\!\\(\\*SubscriptBox[StyleBox[\\\"col\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \
\\\"TI\\\"]]\\) \:7b49\:6bd4\:4f8b\:6df7\:5408. \\n\"\>", "MSG"], 
  "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Blend"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.6999565170268173`*^9},
 CellTags->"Info3699985316-4505720"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Blend", "[", 
     RowBox[{"{", 
      RowBox[{"Red", ",", "Yellow"}], "}"}], "]"}], ",", 
    RowBox[{"Disk", "[", "]"}]}], "}"}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[1, 
    NCache[
     Rational[1, 2], 0.5], 0], DiskBox[{0, 0}]}]], "Output",
 CellChangeTimes->{3.699956533045144*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Style", "[", 
  RowBox[{"100", ",", "Red"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999565725242615`*^9, 3.6999566074687114`*^9}}],

Cell[BoxData[
 StyleBox["100",
  StripOnInput->False,
  LineColor->RGBColor[1, 0, 0],
  FrontFaceColor->RGBColor[1, 0, 0],
  BackFaceColor->RGBColor[1, 0, 0],
  GraphicsColor->RGBColor[1, 0, 0],
  FontColor->RGBColor[1, 0, 0]]], "Output",
 CellChangeTimes->{{3.699956573414627*^9, 3.6999566079952536`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Style", "[", 
    RowBox[{
     RowBox[{"RandomInteger", "[", "1000", "]"}], ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"{", "30", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999566152959504`*^9, 3.6999566218090568`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Style", "[", 
    RowBox[{"213", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"995", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"568", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"790", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"642", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"781", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"819", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"826", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"979", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"879", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"72", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"474", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"448", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"549", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"846", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"143", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"850", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"796", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"601", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"251", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"451", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"974", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"274", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"244", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"793", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"206", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"737", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"362", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"587", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"145", ",", 
     RowBox[{"RandomColor", "[", "]"}]}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.69995661649986*^9, 3.699956622112389*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Style", "[", 
  RowBox[{"x", ",", "20"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999566389862003`*^9, 3.699956660382167*^9}}],

Cell[BoxData[
 StyleBox["x",
  StripOnInput->False,
  FontSize->20]], "Output",
 CellChangeTimes->{{3.699956639950605*^9, 3.699956660899186*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "RandomColor"}]], "Input",
 CellChangeTimes->{{3.6999566835159426`*^9, 3.699956687199984*^9}}],

Cell["Global`RandomColor", "Print", "PrintUsage",
 CellChangeTimes->{3.699956688091159*^9},
 CellTags->"Info3699985488-5296596"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Style", "[", 
    RowBox[{"100", ",", "n"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999567002491674`*^9, 3.6999567219526987`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   StyleBox["100",
    StripOnInput->False,
    FontSize->1], ",", 
   StyleBox["100",
    StripOnInput->False,
    FontSize->2], ",", 
   StyleBox["100",
    StripOnInput->False,
    FontSize->3], ",", 
   StyleBox["100",
    StripOnInput->False,
    FontSize->4], ",", 
   StyleBox["100",
    StripOnInput->False,
    FontSize->5], ",", 
   StyleBox["100",
    StripOnInput->False,
    FontSize->6], ",", 
   StyleBox["100",
    StripOnInput->False,
    FontSize->7], ",", 
   StyleBox["100",
    StripOnInput->False,
    FontSize->8], ",", 
   StyleBox["100",
    StripOnInput->False,
    FontSize->9], ",", 
   StyleBox["100",
    StripOnInput->False,
    FontSize->10]}], "}"}]], "Output",
 CellChangeTimes->{{3.6999567021515546`*^9, 3.699956722453704*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", 
     RowBox[{"RandomInteger", "[", "30", "]"}]}], "]"}], ",", 
   RowBox[{"{", "25", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.699956734774833*^9, 3.6999567629829817`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "8"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "6"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "7"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "25"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "8"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "0"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "11"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "19"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "27"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "7"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "20"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "17"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "3"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "10"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "19"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "18"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "20"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "20"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "22"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "11"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "13"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "29"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "26"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "25"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"x", ",", 
     RowBox[{"RandomColor", "[", "]"}], ",", "28"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6999567582814436`*^9, 3.699956763455289*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{"Circle", "[", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999567837383127`*^9, 3.6999567837538834`*^9}}],

Cell[BoxData[
 GraphicsBox[CircleBox[{0, 0}]]], "Output",
 CellChangeTimes->{3.6999567848568115`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"Circle", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "]"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]], "Input",
 NumberMarks->False],

Cell[BoxData[
 GraphicsBox[CircleBox[{0, 0}],
  ImageSize->Small]], "Output",
 CellChangeTimes->{3.6999568019861*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{"Disk", "[", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999568039667444`*^9, 3.6999568039667444`*^9}}],

Cell[BoxData[
 GraphicsBox[DiskBox[{0, 0}]]], "Output",
 CellChangeTimes->{3.699956804908224*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"Disk", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "]"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}]], "Input",
 NumberMarks->False],

Cell[BoxData[
 GraphicsBox[DiskBox[{0, 0}],
  ImageSize->Full]], "Output",
 CellChangeTimes->{3.699956810403099*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{"Disk", "[", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.699956838321394*^9, 3.6999568383233976`*^9}}],

Cell[BoxData[
 GraphicsBox[DiskBox[{0, 0}]]], "Output",
 CellChangeTimes->{3.6999568396843843`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{"RegularPolygon", "[", "5", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999568544856625`*^9, 3.6999568544856625`*^9}}],

Cell[BoxData[
 GraphicsBox[$CellContext`RegularPolygon[5]]], "Output",
 CellChangeTimes->{3.699956857396653*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"RegularPolygon", "[", "n", "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "5", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.699956874778928*^9, 3.699956874778928*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[$CellContext`RegularPolygon[5]], ",", 
   GraphicsBox[$CellContext`RegularPolygon[6]], ",", 
   GraphicsBox[$CellContext`RegularPolygon[7]], ",", 
   GraphicsBox[$CellContext`RegularPolygon[8]], ",", 
   GraphicsBox[$CellContext`RegularPolygon[9]], ",", 
   GraphicsBox[$CellContext`RegularPolygon[10]]}], "}"}]], "Output",
 CellChangeTimes->{3.699956876034851*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{"Disk", "[", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.699956905830553*^9, 3.699956941431766*^9}}],

Cell[BoxData[
 GraphicsBox[DiskBox[{0, 0}]]], "Output",
 CellChangeTimes->{{3.6999569135569534`*^9, 3.699956942724064*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics3D", "[", 
  RowBox[{"Sphere", "[", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999569833849363`*^9, 3.6999569833849363`*^9}}],

Cell[BoxData[
 Graphics3DBox[SphereBox[{0, 0, 0}],
  AutomaticImageSize->True,
  ImageSize->{345.31514639929105`, 322.1043190229348},
  ViewPoint->{1.6189361906184259`, -2.8289776521614014`, 0.9088074902185093},
  ViewVertical->{0.22791774294236333`, -0.2766345738846171, 
   0.933556005274314}]], "Output",
 CellChangeTimes->{3.6999569863081627`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Graphics3D", "[", 
    RowBox[{"Cone", "[", "]"}], "]"}], ",", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"Cylinder", "[", "]"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.69995700065423*^9, 3.69995700065423*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   Graphics3DBox[ConeBox[{{0, 0, -1}, {0, 0, 1}}]], ",", 
   Graphics3DBox[CylinderBox[{{0, 0, -1}, {0, 0, 1}}]]}], "}"}]], "Output",
 CellChangeTimes->{3.6999570034405203`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics3D", "[", 
  RowBox[{"Style", "[", 
   RowBox[{
    RowBox[{"Sphere", "[", "]"}], ",", "Yellow"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6999570143086023`*^9, 3.6999570143086023`*^9}}],

Cell[BoxData[
 Graphics3DBox[
  {RGBColor[1, 1, 0], SphereBox[{0, 0, 0}]},
  AutomaticImageSize->True,
  ImageSize->{391.7688990065431, 396.52813193276546`},
  ViewPoint->{1.942714801391658, -1.4330652633421712`, 2.3711143269475228`},
  ViewVertical->{0.10148492788195101`, 0.30743160128572167`, 
   0.9461430229852632}]], "Output",
 CellChangeTimes->{3.6999570154892273`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics3D", "[", 
  RowBox[{"Style", "[", 
   RowBox[{
    RowBox[{"Sphere", "[", "]"}], ",", "Red"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.699957022337628*^9, 3.699957027595497*^9}}],

Cell[BoxData[
 Graphics3DBox[
  {RGBColor[1, 0, 0], SphereBox[{0, 0, 0}]}]], "Output",
 CellChangeTimes->{3.6999570288653293`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{"Orange", ",", "n"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6999571059947567`*^9, 3.6999571059947567`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], 1, 5, 1}}, Typeset`size$$ = {189., {2., 9.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`n$34739$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$34739$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Table[Orange, $CellContext`n$$], 
      "Specifications" :> {{$CellContext`n$$, 1, 5, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{258., {65., 70.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.699957107149222*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Column", "[", 
    RowBox[{"{", 
     RowBox[{"n", ",", 
      RowBox[{"n", "^", "2"}], ",", 
      RowBox[{"n", "^", "3"}]}], "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "10", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.699957213441433*^9, 3.6999572134424524`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 6, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], 1, 10, 1}}, Typeset`size$$ = {
    24., {17.5, 22.5}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`n$35255$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$35255$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Column[{$CellContext`n$$, $CellContext`n$$^2, $CellContext`n$$^3}], 
      "Specifications" :> {{$CellContext`n$$, 1, 10, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{258., {78., 83.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.699957214580456*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Manipulate"}]], "Input",
 CellChangeTimes->{3.699957223933379*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Manipulate\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \\\",\\\", \
SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \
\\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"max\\\", \\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) \:4ea7\
\:751f\:4e00\:4e2a\:5e26\:6709\:63a7\:4ef6\:7684 \\!\\(\\*StyleBox[\\\"expr\\\
\", \\\"TI\\\"]\\) \:7684\:7248\:672c\:ff0c\:8be5\:63a7\:4ef6\:5141\:8bb8 \\!\
\\(\\*StyleBox[\\\"u\\\", \\\"TI\\\"]\\) \
\:503c\:4ea4\:4e92\:5f0f\:64cd\:4f5c.\\n\\!\\(\\*RowBox[{\\\"Manipulate\\\", \
\\\"[\\\", RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \\\",\\\", \
SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \
\\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"max\\\", \\\"TI\\\"]], \\\",\\\", StyleBox[\\\"du\\\", \
\\\"TI\\\"]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) \:5141\:8bb8 \
\\!\\(\\*StyleBox[\\\"u\\\", \\\"TI\\\"]\\) \:503c\:5728 \
\\!\\(\\*SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \
\\\"TI\\\"]]\\) \:548c \\!\\(\\*SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"max\\\", \\\"TI\\\"]]\\) \:4e4b\:95f4\:4ee5\:6b65\:957f \
\\!\\(\\*StyleBox[\\\"du\\\", \\\"TI\\\"]\\) \
\:53d8\:5316.\\n\\!\\(\\*RowBox[{\\\"Manipulate\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \
\\\",\\\", SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"init\\\", \\\"TI\\\"]]}], \\\"}\\\"}], \\\",\\\", \
SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \
\\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"max\\\", \\\"TI\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \
\\\"TR\\\"]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) \\!\\(\\*StyleBox[\\\"u\\\", \
\\\"TI\\\"]\\) \:7684\:521d\:59cb\:503c\:8bbe\:7f6e\:4e3a \
\\!\\(\\*SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], StyleBox[\\\"init\\\", \
\\\"TI\\\"]]\\).\\n\\!\\(\\*RowBox[{\\\"Manipulate\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \
\\\",\\\", SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"init\\\", \\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"u\\\
\", \\\"TI\\\"], StyleBox[\\\"lbl\\\", \\\"TI\\\"]]}], \\\"}\\\"}], \
\\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}]}], \
\\\"]\\\"}]\\) \:4ee5 \\!\\(\\*SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"lbl\\\", \\\"TI\\\"]]\\) \:4f5c\:4e3a \
\\!\\(\\*StyleBox[\\\"u\\\", \\\"TI\\\"]\\) \
\:7684\:63a7\:4ef6\:6807\:7b7e.\\n\\!\\(\\*RowBox[{\\\"Manipulate\\\", \
\\\"[\\\", RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"u\\\", \
\\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) \
\:5141\:8bb8 \\!\\(\\*StyleBox[\\\"u\\\", \\\"TI\\\"]\\) \:53d6\:79bb\:6563\
\:503c \\!\\(\\*RowBox[{SubscriptBox[StyleBox[\\\"u\\\", \\\"TI\\\"], \
StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"u\\\", \
\\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TR\\\"]}]\\).\\n\\!\\(\\*RowBox[{\\\"Manipulate\\\", \
\\\"[\\\", RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \\\",\\\", \
StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\
\\\"{\\\", RowBox[{StyleBox[\\\"v\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}], \\\",\\\", StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\\) \:4f7f\:63a7\:4ef6\:53ef\:4ee5\
\:64cd\:7eb5\:6bcf\:4e2a \\!\\(\\*RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \\\
\",\\\", StyleBox[\\\"v\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"\[Ellipsis]\
\\\", \\\"TR\\\"]}]\\).\\n\\!\\(\\*RowBox[{\\\"Manipulate\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"c\\\", \\\"TI\\\"], StyleBox[\\\"u\\\", \
\\\"TI\\\"]], \\\"->\\\", RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"u\\\", \
\\\"TI\\\"], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \
\\\"}\\\"}]}], \\\",\\\", RowBox[{SubscriptBox[StyleBox[\\\"c\\\", \
\\\"TI\\\"], StyleBox[\\\"v\\\", \\\"TI\\\"]], \\\"->\\\", RowBox[{\\\"{\\\", \
RowBox[{StyleBox[\\\"v\\\", \\\"TI\\\"], \\\",\\\", \
StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}]}], \\\",\\\", \
StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\\) \
\:628a\:63a7\:4ef6\:4e0e\:5916\:90e8\:8bbe\:5907\:4e0a\:7684\:4e00\:4e2a\:6307\
\:5b9a\:7684\:63a7\:5236\:5668\:76f8\:94fe\:63a5.\"\>", "MSG"], 
  "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Manipulate"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.6999572252780123`*^9},
 CellTags->"Info3699986025-4655841"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{"x", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"a", " ", "x"}]}], ")"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "6"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 0.2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{
      Hold[$CellContext`a$$], 0, 2}}, Typeset`size$$ = {360., {106., 110.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`a$35755$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$35755$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        Sin[$CellContext`x (
          1 + $CellContext`a$$ $CellContext`x)], {$CellContext`x, 0, 6}], 
      "Specifications" :> {{$CellContext`a$$, 0, 2}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{411., {165., 170.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.699957242916664*^9}]
}, Open  ]]
},
WindowSize->{707, 504},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (2013\:5e742\:670813\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3699983686-4698757"->{
  Cell[58946, 1537, 133, 2, 42, "Print",
   CellTags->"Info3699983686-4698757"]},
 "Info3699985020-9284264"->{
  Cell[191081, 4956, 568, 13, 42, "Print",
   CellTags->"Info3699985020-9284264"]},
 "Info3699985197-9284264"->{
  Cell[287541, 6621, 1304, 23, 81, "Print",
   CellTags->"Info3699985197-9284264"]},
 "Info3699985316-4505720"->{
  Cell[293926, 6786, 4347, 66, 138, "Print",
   CellTags->"Info3699985316-4505720"]},
 "Info3699985488-5296596"->{
  Cell[303352, 7020, 128, 2, 42, "Print",
   CellTags->"Info3699985488-5296596"]},
 "Info3699986025-4655841"->{
  Cell[317083, 7455, 5524, 83, 157, "Print",
   CellTags->"Info3699986025-4655841"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3699983686-4698757", 324986, 7606},
 {"Info3699985020-9284264", 325097, 7609},
 {"Info3699985197-9284264", 325210, 7612},
 {"Info3699985316-4505720", 325324, 7615},
 {"Info3699985488-5296596", 325439, 7618},
 {"Info3699986025-4655841", 325551, 7621}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 119, 2, 31, "Input"],
Cell[701, 26, 72, 1, 31, "Output"]
}, Open  ]],
Cell[788, 30, 72, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[885, 35, 19639, 368, 105, "WolframAlphaShortInput"],
Cell[20527, 405, 769, 18, 250, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21333, 428, 266, 7, 31, "Input"],
Cell[21602, 437, 2221, 87, 132, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23860, 529, 119, 2, 31, "Input"],
Cell[23982, 533, 70, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24089, 539, 120, 2, 31, "Input"],
Cell[24212, 543, 73, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24322, 549, 125, 2, 31, "Input"],
Cell[24450, 553, 78, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24565, 559, 148, 3, 31, "Input"],
Cell[24716, 564, 72, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24825, 570, 151, 3, 31, "Input"],
Cell[24979, 575, 70, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25086, 581, 159, 3, 31, "Input"],
Cell[25248, 586, 72, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25357, 592, 138, 2, 31, "Input"],
Cell[25498, 596, 72, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25607, 602, 138, 2, 31, "Input"],
Cell[25748, 606, 73, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25858, 612, 195, 4, 31, "Input"],
Cell[26056, 618, 170, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26263, 627, 230, 5, 31, "Input"],
Cell[26496, 634, 482, 13, 245, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27015, 652, 230, 5, 31, "Input"],
Cell[27248, 659, 480, 13, 247, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27765, 677, 125, 2, 31, "Input"],
Cell[27893, 681, 203, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28133, 691, 164, 3, 31, "Input"],
Cell[28300, 696, 533, 14, 247, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28870, 715, 193, 4, 31, "Input"],
Cell[29066, 721, 135, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29238, 729, 159, 3, 31, "Input"],
Cell[29400, 734, 203, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29640, 744, 199, 4, 31, "Input"],
Cell[29842, 750, 512, 13, 247, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30391, 768, 315, 9, 31, "Input"],
Cell[30709, 779, 168, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30914, 788, 291, 8, 31, "Input"],
Cell[31208, 798, 181, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31426, 808, 212, 5, 31, "Input"],
Cell[31641, 815, 183, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31861, 825, 257, 6, 31, "Input"],
Cell[32121, 833, 880, 14, 92, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33038, 852, 301, 7, 31, "Input"],
Cell[33342, 861, 799, 19, 247, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34178, 885, 338, 8, 31, "Input"],
Cell[34519, 895, 815, 19, 247, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35371, 919, 251, 6, 31, "Input"],
Cell[35625, 927, 504, 13, 250, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36166, 945, 243, 6, 31, "Input"],
Cell[36412, 953, 492, 13, 250, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36941, 971, 243, 6, 31, "Input"],
Cell[37187, 979, 8201, 228, 241, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45425, 1212, 209, 5, 31, "Input"],
Cell[45637, 1219, 12715, 294, 375, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58389, 1518, 206, 4, 31, "Input"],
Cell[58598, 1524, 207, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58842, 1533, 101, 2, 31, "Input"],
Cell[58946, 1537, 133, 2, 42, "Print",
 CellTags->"Info3699983686-4698757"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59116, 1544, 200, 4, 31, "Input"],
Cell[59319, 1550, 309, 11, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59665, 1566, 280, 7, 31, "Input"],
Cell[59948, 1575, 21672, 491, 197, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81657, 2071, 472, 13, 31, "Input"],
Cell[82132, 2086, 13995, 367, 134, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96164, 2458, 175, 4, 31, "Input"],
Cell[96342, 2464, 130, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96509, 2472, 233, 6, 31, "Input"],
Cell[96745, 2480, 125, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96907, 2488, 152, 3, 31, "Input"],
Cell[97062, 2493, 212, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97311, 2503, 184, 4, 31, "Input"],
Cell[97498, 2509, 599, 15, 244, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98134, 2529, 207, 5, 31, "Input"],
Cell[98344, 2536, 147, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98528, 2544, 226, 5, 31, "Input"],
Cell[98757, 2551, 70, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98864, 2557, 192, 4, 31, "Input"],
Cell[99059, 2563, 70, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99166, 2569, 161, 3, 31, "Input"],
Cell[99330, 2574, 73, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99440, 2580, 253, 6, 31, "Input"],
Cell[99696, 2588, 72, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99805, 2594, 251, 6, 31, "Input"],
Cell[100059, 2602, 72, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100168, 2608, 183, 4, 31, "Input"],
Cell[100354, 2614, 72, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100463, 2620, 180, 4, 31, "Input"],
Cell[100646, 2626, 70, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100753, 2632, 209, 5, 31, "Input"],
Cell[100965, 2639, 72, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101074, 2645, 248, 6, 31, "Input"],
Cell[101325, 2653, 72, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101434, 2659, 206, 5, 31, "Input"],
Cell[101643, 2666, 72, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101752, 2672, 139, 2, 31, "Input"],
Cell[101894, 2676, 134, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102065, 2684, 168, 3, 31, "Input"],
Cell[102236, 2689, 72, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102345, 2695, 257, 7, 31, "Input"],
Cell[102605, 2704, 145, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102787, 2712, 118, 2, 31, "Input"],
Cell[102908, 2716, 128, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103073, 2722, 215, 5, 31, "Input"],
Cell[103291, 2729, 202, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103530, 2739, 259, 7, 31, "Input"],
Cell[103792, 2748, 145, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103974, 2756, 152, 3, 31, "Input"],
Cell[104129, 2761, 576, 11, 24, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104742, 2777, 176, 4, 31, InheritFromParent],
Cell[104921, 2783, 204, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105162, 2793, 171, 4, 31, "Input"],
Cell[105336, 2799, 171, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105544, 2807, 221, 6, 31, "Input"],
Cell[105768, 2815, 709, 23, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106514, 2843, 269, 7, 31, "Input"],
Cell[106786, 2852, 25059, 560, 197, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[131882, 3417, 227, 6, 31, "Input"],
Cell[132112, 3425, 292, 8, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132441, 3438, 221, 6, 31, "Input"],
Cell[132665, 3446, 204, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132906, 3456, 225, 6, 31, "Input"],
Cell[133134, 3464, 212, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133383, 3474, 233, 6, 31, "Input"],
Cell[133619, 3482, 428, 13, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134084, 3500, 266, 7, 31, "Input"],
Cell[134353, 3509, 2221, 87, 132, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136611, 3601, 293, 8, 31, "Input"],
Cell[136907, 3611, 1580, 42, 139, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138524, 3658, 175, 4, 31, "Input"],
Cell[138702, 3664, 120, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138859, 3671, 173, 4, 31, "Input"],
Cell[139035, 3677, 117, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[139189, 3685, 323, 9, 31, "Input"],
Cell[139515, 3696, 41200, 920, 409, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[180752, 4621, 225, 6, 31, "Input"],
Cell[180980, 4629, 214, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[181231, 4639, 311, 9, 31, "Input"],
Cell[181545, 4650, 442, 13, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182024, 4668, 230, 6, 31, "Input"],
Cell[182257, 4676, 488, 13, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182782, 4694, 236, 6, 31, "Input"],
Cell[183021, 4702, 371, 10, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[183429, 4717, 250, 6, 31, "Input"],
Cell[183682, 4725, 252, 7, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[183971, 4737, 148, 3, 31, "Input"],
Cell[184122, 4742, 171, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[184330, 4751, 156, 3, 31, "Input"],
Cell[184489, 4756, 136, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[184662, 4764, 163, 3, 31, "Input"],
Cell[184828, 4769, 292, 6, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[185157, 4780, 312, 9, 31, "Input"],
Cell[185472, 4791, 1024, 22, 242, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[186533, 4818, 320, 8, 31, "Input"],
Cell[186856, 4828, 996, 22, 242, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[187889, 4855, 216, 5, 31, "Input"],
Cell[188108, 4862, 331, 6, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[188476, 4873, 159, 3, 31, "Input"],
Cell[188638, 4878, 308, 6, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[188983, 4889, 99, 1, 31, "Input"],
Cell[189085, 4892, 137, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[189259, 4900, 208, 5, 31, "Input"],
Cell[189470, 4907, 558, 14, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[190065, 4926, 135, 2, 31, "Input"],
Cell[190203, 4930, 537, 11, 24, "Message"],
Cell[190743, 4943, 176, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[190956, 4952, 122, 2, 31, "Input"],
Cell[191081, 4956, 568, 13, 42, "Print",
 CellTags->"Info3699985020-9284264"]
}, Open  ]],
Cell[CellGroupData[{
Cell[191686, 4974, 45422, 749, 62, "Input"],
Cell[237111, 5725, 45433, 749, 194, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[282581, 6479, 193, 4, 31, "Input"],
Cell[282777, 6485, 202, 5, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[283016, 6495, 164, 3, 31, "Input"],
Cell[283183, 6500, 137, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[283357, 6508, 164, 3, 31, "Input"],
Cell[283524, 6513, 139, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[283700, 6521, 290, 7, 31, "Input"],
Cell[283993, 6530, 1973, 45, 152, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[286003, 6580, 252, 6, 31, "Input"],
Cell[286258, 6588, 1131, 24, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[287426, 6617, 112, 2, 31, "Input"],
Cell[287541, 6621, 1304, 23, 81, "Print",
 CellTags->"Info3699985197-9284264"]
}, Open  ]],
Cell[CellGroupData[{
Cell[288882, 6649, 238, 6, 31, "Input"],
Cell[289123, 6657, 138, 3, 374, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[289298, 6665, 129, 2, 31, "Input"],
Cell[289430, 6669, 104, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[289571, 6676, 208, 5, 31, "Input"],
Cell[289782, 6683, 1439, 33, 152, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[291258, 6721, 245, 6, 31, "Input"],
Cell[291506, 6729, 1203, 22, 105, "Message"],
Cell[292712, 6753, 1056, 24, 112, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[293805, 6782, 118, 2, 31, "Input"],
Cell[293926, 6786, 4347, 66, 138, "Print",
 CellTags->"Info3699985316-4505720"]
}, Open  ]],
Cell[CellGroupData[{
Cell[298310, 6857, 230, 7, 31, "Input"],
Cell[298543, 6866, 158, 5, 374, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[298738, 6876, 155, 3, 31, "Input"],
Cell[298896, 6881, 306, 8, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[299239, 6894, 316, 8, 31, "Input"],
Cell[299558, 6904, 3297, 93, 312, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[302892, 7002, 150, 3, 31, "Input"],
Cell[303045, 7007, 145, 4, 37, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[303227, 7016, 122, 2, 31, "Input"],
Cell[303352, 7020, 128, 2, 42, "Print",
 CellTags->"Info3699985488-5296596"]
}, Open  ]],
Cell[CellGroupData[{
Cell[303517, 7027, 261, 7, 31, "Input"],
Cell[303781, 7036, 802, 33, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[304620, 7074, 322, 8, 31, "Input"],
Cell[304945, 7084, 2989, 78, 272, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[307971, 7167, 159, 3, 31, "Input"],
Cell[308133, 7172, 101, 2, 374, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[308271, 7179, 267, 8, 31, "Input"],
Cell[308541, 7189, 117, 3, 195, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[308695, 7197, 157, 3, 31, "Input"],
Cell[308855, 7202, 97, 2, 374, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[308989, 7209, 264, 8, 31, "Input"],
Cell[309256, 7219, 116, 3, 606, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[309409, 7227, 155, 3, 31, "Input"],
Cell[309567, 7232, 99, 2, 374, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[309703, 7239, 172, 3, 31, "Input"],
Cell[309878, 7244, 112, 2, 374, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[310027, 7251, 286, 7, 31, "Input"],
Cell[310316, 7260, 420, 9, 409, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[310773, 7274, 153, 3, 31, "Input"],
Cell[310929, 7279, 123, 2, 374, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[311089, 7286, 161, 3, 31, "Input"],
Cell[311253, 7291, 351, 7, 337, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[311641, 7303, 272, 7, 31, "Input"],
Cell[311916, 7312, 217, 5, 212, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[312170, 7322, 224, 5, 31, "Input"],
Cell[312397, 7329, 376, 8, 412, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[312810, 7342, 217, 5, 31, "Input"],
Cell[313030, 7349, 130, 3, 406, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[313197, 7357, 288, 7, 31, "Input"],
Cell[313488, 7366, 1500, 31, 152, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[315025, 7402, 373, 10, 31, "Input"],
Cell[315401, 7414, 1547, 32, 178, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[316985, 7451, 95, 2, 31, "Input"],
Cell[317083, 7455, 5524, 83, 157, "Print",
 CellTags->"Info3699986025-4655841"]
}, Open  ]],
Cell[CellGroupData[{
Cell[322644, 7543, 407, 13, 31, "Input"],
Cell[323054, 7558, 1578, 33, 384, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
